正则表达式的性能评测

内容略，评测代码如下:

open my $fh, "<", "$Bin/res/apache.log" or die "apache.log: $!";
my @data=<$fh>;
timethese(
    10000000,
    {
        'Common IP' => q{
            foreach(@data) {
               my ($ip) = m/^($RE{net}{IPv4})/;
    
            }
        },
        'Person IP1' => q{
            foreach(@data) {
              my ($ip) = m/^([0-9]{1,}\.[0-9]{1,}\.[0-9]{1,}\.[0-9]{1,})\s+/ ;
            }

        },
        'Person IP2' => q{
            foreach(@data) {
              my ($ip) = m/^([0-9.]{7,})\s+/ ;
            }

        },
    }
    );

close $fh;