Opened by Oliver007 at 2013-01-10 15:09
User since
2006-01-27
3890 Artikel
HausmeisterIn
2006-01-27
3890 Artikel
HausmeisterIn
Stelle ich in meinem Test die Art des Einlesens auf echtes Zeilenweises Lesen um, dann klappt das Einlesen schonmal etwas schneller:
Resultat:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
sub parsedata { my $run = shift; my @lines; my $t0 = [ gettimeofday ]; # echtes zeilenweise lesen push @lines, $_ while <FH>; my $t1 = [ gettimeofday ]; print "$run Run: ", tv_interval( $t0, $t1 ), "\n"; }
Resultat:
Code: (dl
)
1
2
3
4
5
6
1 Run: 0.38726
2 Run: 0.344076
3 Run: 0.343493
4 Run: 0.343464
5 Run: 0.343567
6 Run: 0.343638
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!