perl中grep的对象可以为变量吗 正确方法是怎样？我的详细问题与脚本是这样的

perl中grep的对象可以为变量吗 正确方法是怎样？我的详细问题与脚本是这样的

问题应该是出在while () 这里。
这句是把文件中每一行取出来，赋给系统变量$_，而$_这个变量是很特殊的，perl中好多的功能都会用到这个，所以可能会带来不可知的后果，我们应该尽量避免使用$_。


另外，这个不能多次使用，除非你使用seek重置文件指针，不然的话，第一次执行完了，第二次里面的值就是空了。


可以改成：


my @b = ;
foreach my $line () {
    chomp($line);
    next if (!$line);
    @a = grep (/$line/, @b);
    print C @a;
}