Anzahl Zeilen in Textdatei ermitteln: (Wie mache ich das am schnellsten?) - #81714 (Allgemeines zu Perl)

sri

2004-04-21 16:45

User since
2004-01-29
828 Artikel
BenutzerIn

[quote=Taulmarill,21.04.2004, 14:37]also nach dem was ich gebenchmarkt habe währe folgendes etwas schneller

Code: (dl )

1
2

while (<F>) {};
$c = $.;

[/quote]
Hier ist der Grund ;)

Code: (dl )

sri@odyssey:~$ perl -MO=Deparse -lpe '}{*_=*.}{' test.txt
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
}
{
    *_ = *.;
}
{
    ();
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK


sri@odyssey:~$ perl -MO=Deparse -pe '}{*_=*.}{' test.txt
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
    ();
}
{
    *_=*.;
}
{
    ();
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

sri@odyssey:~$ perl -MO=Deparse -e 'while (<>) {}; print $.' test.txt
while (defined($_ = <ARGV>)) {
    ();
}
print $.;
-e syntax OK

Soviel zum Thema Bytecode optimierung im Perl5 compiler... :-P\n\n

http://mojolicio.us/