Номер строки файла в Perl

Вawk если я приведу более одного файла в качестве аргументаawkЕсть две специальные переменные:

NR= номер строки, соответствующий всем строкам во всех файлах.

FNR= номер строки текущего файла.

Я знаю, что в Perl,$. соответствуетNR (текущая строка среди строк во всех файлах).

Есть ли что-то сопоставимое сFNR AWK в Perl тоже?

Допустим, у меня есть какая-то командная строка:

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

Это должно дать мне вывод, как:

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

Ответы на вопрос(3)

Ваш ответ на вопрос