Как получить номер текущей строки файла, открытого с помощью Perl?

Question

open my $fp, '<', $file or die $!;

while (<$fp>) {
    my $line = $_;
    if ($line =~ /$regex/) {
        # How do I find out which line number this match happened at?
    }
}

close $fp;

Answer 1

Используйте $. (см. perldoc perlvar).

Answer 2

Вы также можете сделать это через интерфейс OO:

use IO::Handle;
# later on ...
my $n = $fp->input_line_number();

Это также в perldoc perlvar .

Answer 3

Не используйте $. или $_ или какую-либо глобальную переменную.Используйте это вместо:

while(my $line = <FILE>) {
  print $line unless ${\*FILE}->input_line_number == 1;
}

Чтобы избежать этого и многих других ошибок Perl, вы можете использовать в пакетах Atom или VSCode, таких как linter-perl .Прекратите делать Perl языком только для записи !