파일에서 행을 읽고 행 번호가있는 각 행을 출력하십시오.

Question

저는 Perl 프로그래밍에있어 처음이에요. 파일을 열고 파일의 각 행을 하나씩 읽는 프로그램을 작성하고 있습니다. 그런 다음 각 줄의 시작 부분에 줄 번호가있는 파일을 출력합니다.

지금은 줄을 읽고 있지만 각 줄을 구별하고 처음에 뭔가를 출력하는 방법을 알지 못합니다.

#!/usr/bin/perl 
use strict 
use warnings 

my $file = 'FILENAME.txt'; 
open(my $txt_file, '<', $file) or die "Could not open file." 

while (my $lines = <$txt_file>) { 
    ... 
} 

Answer 1

$. 변수가 마지막으로 액세스 한 파일 핸들의 현재 행 번호 원하는 분야.

#!/usr/bin/perl 
use strict; 
use warnings; 
use autodie; 

my $file = 'FILENAME.txt'; 
open my $fh, '<', $file; 

while (my $line = <$fh>) { 
    print "$. $line"; 
}