参见英文答案 >
Which file is Perl’s diamond operator (null file handle) currently reading from?1
一个简单的程序与while(<>)处理作为参数(./program 1.file 2.file 3.file)和Unix系统的标准输入给出的文件.
一个简单的程序与while(<>)处理作为参数(./program 1.file 2.file 3.file)和Unix系统的标准输入给出的文件.
我认为它们在一个文件中连接在一起,工作是逐行的.问题是,我如何知道我正在使用第一个文件？然后与第二个.
while( <> ){
print "\n" if (it's the second file already);
print $_;
}
@H_502_9@
解决方法
钻石运算符不连接文件,它只是打开并连续读取它们.你如何控制这取决于你如何控制它.检查一下我们读取文件最后一行的简单方法是使用eof：
while (<>) {
chomp; # remove newline
print; # print the line
print "\n" if eof; # at end of file,print a newline
}
您还可以考虑使用计数器来跟踪正在处理的文件
$counter++ if eof;
如果你想跟踪行号$.在当前文件句柄中,可以关闭ARGV文件句柄来重置此计数器：
while (<>) {
print "line $. : ",$_;
close ARGV if eof;
}
@H_502_9@
@H_502_9@