Pattern matching: zahlen aus einem String herauslesen - #79471 (Allgemeines zu Perl)

GH@NDI

2004-01-25 01:25

User since
2003-09-21
16 Artikel
BenutzerIn

Wenn sichergestellt ist, das an 4. Stelle jedes Strings nur Zahlen folgen, bis zu einem " -" und du die Überprüfung ob es tatsächlich Zahlen über den RegEx nicht brauchst, was spricht dann gegen das gute alte substr und etwas Mathe? :)

Code (perl): (dl )

my $zahlen = substr($line, 4,index($line, " ", 5) - 4);

Hab das aus Spaß grade mal noch gebenchmarkt:

Code: (dl )

Benchmark: timing 1000000 iterations of regex, substr...
     regex:  5 wallclock secs ( 4.77 usr +  0.00 sys =  4.77 CPU) @ 209775.54/s (n=1000000)
    substr:  1 wallclock secs ( 0.48 usr +  0.00 sys =  0.48 CPU) @ 2083333.33/s (n=1000000)

Der Regex Code sah so aus:
my ($zahl) = $line =~ /-\s(\d+?)\s-/;

Dürfte sich also bei 1300 Strings schon minimal bemerkbar machen :)