Opened by Jan at 2014-12-19 09:34
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
Ist nur eine Annahme aber man könnte
durch so was ersetzen:
Das dürfte ein wenig schneller sein als das prüfen per Regex.
Auch die Reihenfolge dieser Prüfungen kann sich auf die Geschwindigkeit auswirken.
Was das beschleunigen des lesen einer Zeile selber betrifft ist das Problematisch einen guten Ratschlag zu geben. Vieles hängt davon ab wie die Dateien selber aussehen.
Code (perl): (dl
)
1 2
if ($line =~ m/^\*/) { $cnt++; next; } if ($line =~ m/^\s+/) { $cnt++; next; }
durch so was ersetzen:
Code (perl): (dl
)
1 2
my $c = substr($line,0,1); next if( $c eq '*' or $c eq ' ' or $c eq "\t" or $c eq "\r" or $c eq "\n");
Das dürfte ein wenig schneller sein als das prüfen per Regex.
Auch die Reihenfolge dieser Prüfungen kann sich auf die Geschwindigkeit auswirken.
Was das beschleunigen des lesen einer Zeile selber betrifft ist das Problematisch einen guten Ratschlag zu geben. Vieles hängt davon ab wie die Dateien selber aussehen.