Question

怎样把shell命令“cat aaa.txt”作为输入传递到perl脚本里，同时通过“tee ccc.txt”输出处理后的文件？

比如，aaa.txt是原文件，bbb.pl是perl脚本，ccc.txt是被Perl脚本处理后的文件，想在shell里面通过“cat aaa.txt | bbb.pl | tee ccc.txt”，想问下在perl脚本里面该怎么写？

Answer 1

perl有个system命令用来调用shell，可以在这个函数里面执行命令行语句。

system('cat aaa.txt | bbb.pl | tee ccc.txt')

Answer 2

while ( <>)
{
print if (/**********/); #*是过滤pattern
}