note
Anonymous Monk
Us N instead of non-portable J.
<code>
my $index = pack 'N', 0;
$index .= pack 'N', tell FILE while <FILE>;
for( my $line_idx = $s; $line_idx < $fileLastLine; $line_idx++ ) {
my $line = unpack( 'N', substr($index, $line_idx*4, 4));
seek FILE, $line, 0;
chomp( $_ = <FILE> );
my $line_str = $_;
</code>
433593
944816
1