在`perl -n`單行中重置下一個文件的狀態變量

Question

我正在使用find ... | xargs perl -ne處理多個文件 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