Номер строки файла в 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