80 Mio Zeilen einlesen - #173425 (Allgemeines zu Perl)

hlubenow

2014-02-06 16:15

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Ist ja lustig, daß noch keiner auf Tie::File hingewiesen hat:

Code (perl): (dl )

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

use Tie::File;
my @array;
tie(@array, 'Tie::File', "file.txt") or die;
print "$array[13]\n";

Danach hast Du das also bequem in einem Array.

Quote
The file is not loaded into memory, so this will work even for gigantic files.