perl에서 파일의 특정 행을 읽거나 쓰는 가장 좋은 방법은 무엇입니까?

Question

파일의 마지막 줄을 읽으려고합니다. 그리고 특정 파일 행을 읽는 데 사용할 수있는 많은 방법이 있습니다.

첫째 :

@array=<FILE_HANDLE>; 
    $line=(reverse @array)[0]; 

초 : ReadBackwards 패키지는

$bw = File::ReadBackwards->new('log_file') or 
         die "can't read 'log_file' $!" ; 
$log_line = $bw->readline; 

펄에서, 바람직한 방법 인 것을 알고 싶은 변수로 패키지 또는 저장된 전체 파일 내용을 사용할지 여부.

Answer 1

것은 - 전체 파일을 읽는 것에 의존하지 않는 방법입니다. 파일은 처음부터 시작되며, 귀하의 프로세스 은이 끝까지 찾아야합니다. 이것은 코드가 수행하는 것 중 가장 비용이 많이 드는 작업이므로 사용자가 취하는 접근 방식에는 거의 차이가 없습니다. 이 비효율적으로 보일 수 있습니다

my $last_line; 
while (my $line = <$filehandle>) { $last_line = $line }; 
print $last_line,"\n"; 

하지만 다른 것들보다 더 이상 일을하지거야 - 전체 파일을 읽기, 마지막 줄하지만, 모든 것을 버리고 :

그래서 아주 간단한 갈 것입니다.

귀하의 질문에 - 귀하가 특정 줄을 따른다면 - 조건이 충족 될 때 시험 $. (현재 줄 번호)이나 정규 표현식을 사용할 수 있으며 루프가 빠져 나갈 수 있습니다. 따라서 전체 파일을 읽지 않아도된다.

예컨대 :

while (my $line = <$filehandle>) { 
    $last_line = $line; 
    last if $. >= 100; #bails out after we hit line 100. 
    last if m/END FILE/; #looks for 'END FILE' on the line, and bails out. 
}; 
print $last_line,"\n"; 

Answer 2

당신의 제목은 당신의 몸과는 다른 질문을.

임의의 큰 파일에서 마지막 (또는 마지막에서 n 번째까지) 행을 읽으려면 File :: ReadBackwards를 사용하십시오. 읽거나 파일에 임의의 한 줄을 작성

, 타이 :: 파일 사용이 필요하기 때문에 대용량 파일의 경우

use Tie::File; 
tie my @line, 'Tie::File', 'filename' or die "unable to open filename: $!"; 
print "line 123 is $line[123]."; 
$line[42] = 'abc'; 
print "line 42 is now abc."; 

를,이 파일 :: ReadBackwards보다 훨씬 더 비싼 것입니다 전체 파일을 수정하려는 행 (또는 음수 인덱스를 사용하는 경우 전체 파일을 통해 읽으므로 그렇게 할 경우 File :: ReadBackwards를 사용하여 파일을 수동으로 업데이트하는 것이 더 낫습니다).