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에, 너무.