perl有个system命令用来调用shell，可以在这个函数里面执行命令行语句。system('cat aaa.txt | bbb.pl | tee ccc.txt')
while ( <>){print if (/**********/); #*是过滤pattern}
