perl - Perl中文件的行号

Question

在awk中，如果我将多个文件作为awk的参数，则有两个特殊变量:
NR =对应于所有文件中所有行的行号。
FNR =当前文件的行号。

我知道在Perl中，$.对应于NR(所有文件中各行之间的当前行)。

还有与Perl中AWK的FNR相当的东西吗？

假设我有一些命令行:

perl -pe 'print filename,<something special which hold the current file's line number>'  *.txt

这应该给我这样的输出:

file1.txt 1
file1.txt 2
file2.txt 1

Answer 1

Perl中没有这样的变量。但是您应该学习eof以便能够编写类似

perl -ne 'print join ":", $. + $sum, $., "\n"; $sum += $., $.=0  if eof;' *txt