perl - Perl-while(<>)文件处理

This question already has an answer here:

Which file is Perl's diamond operator (null file handle) currently reading from?

（1个答案）

7年前关闭。

一个带有while( <> )的简单程序处理作为参数（./program 1.file 2.file 3.file）和Unix系统的标准输入给出的文件。

我认为它将它们连接在一个文件中，并且工作是逐行进行的。问题是，我怎么知道我正在使用第一个文件？然后是第二个。

举一个简单的例子，我想在一行中打印文件的内容。

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

最佳答案

Diamond运算符不连接文件，它只是打开并连续读取它们。您如何控制它取决于您需要如何控制它。检查何时读取文件最后一行的一种简单方法是使用eof：

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

您还可以考虑使用一个计数器来跟踪处理哪个文件

$counter++ if eof;

请注意，此计数在文件的最后一行将增加一，因此请不要过早使用它。

如果要跟踪当前文件句柄中的行号$.，则可以close ARGV文件句柄来重置此计数器：

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

关于perl - Perl-while(<>)文件处理，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/14922272/

上一篇：scala - Akka 2.1.2 Scheduler有问题(无法识别“系统”)

下一篇：eclipse - Eclipse无法将项目识别为Gradle项目

相关文章：

c++ - std::forward_list 中可以存在循环吗？

jquery - 为什么我的下拉菜单在 ie 上的幻灯片后面？

regex - 为什么这个 perl prog 不打印翻译后的文本？

perl - 我应该在哪里放置 Perl .t 测试的通用实用函数？

perl - 我可以在 Perl 中使用 sprintf 为数字指定最大精度宽度吗？

Perl:获取数组中所有增加和减少的 strip (在生物信息学中使用)

php - while 循环中的对象

php循环解决方案

python - 如何正确使用 while 循环而不让它在中断时重复

c - sscanf 循环段错误