FileHandle을 배열로 참조하기

Question

내가 처리해야하는 4GB 파일이 있다고 가정하면, 실제 배열/메모리에 복사하지 않고 배열처럼 filehandle을 참조 할 수있는 Perl의 방법이 있습니까? 같은

뭔가 :

open (LOG, "less file.txt |"); 
my @reference = \<LOG>; 
print $reference[1000000]; 
close LOG; 

가 감사합니다!

Answer 1

Tie::File을 사용하십시오.

use Tie::File; 
tie my @array, 'Tie::File', $filename or die "tie $filename: $!"; 

print $array[42];