Emawk se eu der mais de um arquivo como argumento paraawkexistem duas variáveis ​​especiais:

NR= número de linha correspondente a todas as linhas em todos os arquivos.

FNR= número da linha do arquivo atual.

Eu sei que em Perl,$. corresponde aNR (linha atual entre linhas em todos os arquivos).

Existe alguma coisa comparável aFNR de AWK em Perl também?

Digamos que eu tenha alguma linha de comando:

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

Isso deve me dar saída como:

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