Matching von bis in einer Datei - #121336 (Allgemeines zu Perl)

nepos

2009-05-08 11:34

User since
2005-08-17
1420 Artikel
BenutzerIn

Probiers einfach mal mit Hilfe des Moduls CPAN:

Benchmark aus. Da wirst du sehen, dass index() immer schneller ist, als die Regex-Engine, wenn du einen fixen String benutzt:

Code (perl): (dl )

#!/usr/bin/perl 
use strict;
use warnings;
use Benchmark qw(cmpthese);

my $string = "[end.message]";

cmpthese(10000000, { 
    INDEX => sub { index( $string, 'message', 0) >=0 },
    REGEX => sub { $string =~ /message/ },
});

Code: (dl )

nepos@blackbox:/tmp$ perl benchmark.pl 
           Rate REGEX INDEX
REGEX 4545455/s    --  -25%
INDEX 6024096/s   33%    --