Perl – while(<>)文件处理

参见英文答案 > Which file is Perl’s diamond operator (null file handle) currently reading from?1
一个简单的程序与while(<>)处理作为参数(./program 1.file 2.file 3.file)和Unix系统的标准输入给出的文件.

我认为它们在一个文件中连接在一起,工作是逐行的.问题是,我如何知道我正在使用第一个文件？然后与第二个.

对于一个简单的例子,我想在一行中打印文件的内容.

while( <> ){
    print "\n" if (it's the second file already);
    print $_;
}

解决方法

钻石运算符不连接文件,它只是打开并连续读取它们.你如何控制这取决于你如何控制它.检查一下我们读取文件最后一行的简单方法是使用eof：

while (<>) {
    chomp;             # remove newline
    print;             # print the line
    print "\n" if eof; # at end of file,print a newline
}

您还可以考虑使用计数器来跟踪正在处理的文件

$counter++ if eof;

请注意,此计数将在文件的最后一行增加1,因此请勿过早使用.

如果你想跟踪行号$.在当前文件句柄中,可以关闭ARGV文件句柄来重置此计数器：

while (<>) {
    print "line $. : ",$_;
    close ARGV if eof;
}

Perl – while(<>)文件处理

解决方法

相关文章