perl - find/xargs/perl -ne 的当前文件名？

Question

我在 shell 中工作，试图使用如此骄傲的我永远聪明的自我在一堆 CSV 文件中找到 NUL 字符(Python 的 CSV 导入器正在提示，但那是另一次):

find ~/path/ -name "*.csv" -print0 | \
xargs -n 1 -0 \
perl -ne 'if(m/\x{00}/){print fileno(ARGV).join(" ",@ARGV).$_;}'

除了我看不到文件名。据称 perl -ne的隐式<>运算符正在包装我的脚本只是使用 @ARGV/ ARGV文件句柄，但以上都没有给我当前文件的名称。

我如何在上面看到当前的文件名(以及理想情况下的行号)？

Answer 1

$ARGV 是当前文件的名称和 $. 是当前行号；见 perldoc perlvar和 I/O 运算符 perldoc perlop . (请注意， $. 不会在文件之间重置；在 perldoc -f eof 中对此进行了讨论。)

我不完全确定你想用那个 print 来完成什么;它将为您提供文件句柄编号，可能是 3，附加到一个以空格分隔的文件名列表(由于 xargs -n ，它可能应该只是一个)，然后是包含 NUL 的当前行和其他可能会导致终端混淆的字符。