Perl – while(<>)文件处理

发布时间：2020-12-15 21:12:45 所属栏目：大数据来源：网络整理

导读：参见英文答案 Which file is Perl’s diamond operator (null file handle) currently reading from?1 一个简单的程序与while()处理作为参数(./program 1.file 2.file 3.file)和Unix系统的标准输入给出的文件. 我认为它们在一个文件中连接在一起,工作是逐行

参见英文答案 > 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(&lt;&gt;)文件处理

解决方法

Perl – while(<>)文件处理