11# forlorngenius 发表于 2008-07-08 13:31


QUOTE:
原帖由 hdc1112 于 2008-7-8 12:10 发表
而且perl里自带grep这个命令，跟linux下的grep命令同名，所以也可以这样写（未测试）
open FILE2,"/home/net/n2000client/jn/liusijia/file2";
foreach(grep /$name/i <>){print $_;}

grep 不是这么用的，
要么
foreach(grep /$name/i, <FILE2>){print $_;}

or

foreach(grep {/$name/i} <FILE2>){print $_;}