argv问题

[root@test1 youcz]# perl argv3.pl '^.... ' emp.*
emp.names: 3 : Igor Chevsky
emp.names1: 3 : Igor Chevsky
[root@test1 youcz]# cat argv3.pl
#!/usr/bin/perl
if($#ARGV<1){
        die "Usage: $0 pattern filename(s) \n";}
$pattern=shift;
while($line=<ARGV>){
        print "$ARGV: $. : $line" if $line=~/$pattern/i;
        close(ARGV) if eof;
}
[root@test1 youcz]# ls emp*
emp.names  emp.names1
[root@test1 youcz]#


请问后两个文件perl是怎么处理的？

perldoc perlopentut

perldoc -f eof

回复 hp_truth


   这个情景同eof没关系吧，上面的我看看，谢谢