linux – Perl one-liner是可以为每个文件arg执行END块执行

对于Perl单行,当使用-p或-n标志时,是否可以使END {}块对每个文件执行一次,而不是仅对整个程序执行一次？

换句话说,当我写：

perl -ne '$count++ if/.../; END {print "$ARGV: $count" if $count > 0}' mysourcedir/*.html

我想为每个文件执行一次END块,而不是在程序执行结束时全局执行一次.

目前我只是使用xargs,但想知道Perl是否可能有一些替代标志的行为.

echo mysourcedir/*.html | xargs -n1 perl -ne '$count++ if/.../; END {print "$ARGV: $count" if $count > 0}'

PS – 如果你想知道我为什么不只是grep | wc -l对于这个简单的情况,这是因为这个例子是从我的实际用例中简化的,它在计数器中同时涉及incr()和decr( – )

答：基于@ mpapec的技术,加上一个小调整也可以重置每个文件的$count var,我得到这个有效：

perl -ne '$count++ if/.../; if (eof && $count > 0) {print "$ARGV: $count"; $count = 0;} ' mysourcedir/*.html

解决方法

您可以检查eof以查找每个文件的结尾,

perl -ne '$count++ if/.../; eof && sub{ print "$ARGV: $count" if $count > 0 }->()' mysourcedir/*.html

要么

perl -ne '$count++ if/.../; eof && do{ print "$ARGV: $count" if $count > 0 }' mysourcedir/*.html