perl - 在 `perl -n` 单行中的下一个文件上重置状态变量

Question

我正在处理多个文件 find ... | xargs perl -ne 当我继续下一个文件时，我需要重置一些变量，例如 gawk 'BEGINFILE {}' 。

作为一种解决方法，我检查当前文件名是否已更改。有没有更清洁的方法？

if ($oldARGV ne $ARGV) { $oldARGV = $ARGV; $var1=""; ... } ... 

Answer 1

使用 eof没有参数(或使用 eof ARGV):

$ perl -nE 'say "Done with file $ARGV" if eof' *.txt
Done with file a.txt
Done with file b.txt