[Moscow.pm] Re: Не думал что регулярные выражения настолько быстры (или substr такой медленный...)

[Andrey]

> Переделал тест и опять в шоке
> Либо что-то не так в тестах, либо регулярки рвут substr как грелку

.= не ломает обучение от строки, видимо, вот попробуй:

my $vs = {
    regex => 'if ( $phone =~ /^7/ ) { $phone =".".$phone; } $phone =
"70123456789";' x $cnt,
    substr_eq => 'if ( substr($phone, 0, 1) eq "7" ) { 
$phone=".".$phone;} $phone = "70123456789";' x $cnt,
    substr => 'if ( substr($phone, 0, 1) == 7 ) { $phone=".".$phone; }
$phone = "70123456789";' x $cnt,
};