use strict;
use Benchmark;
my $name = \'http://www.test.ru/images/test.gif\';
my $file;
timethese(1_000_000, {
\'Name1\' => sub {($file) = $name =~ m!([^/]*)$!},
\'Name2\' => sub {[B]$file = substr($name,rindex($name,"/")+1);[/B]},
});
Benchmark: timing 1000000 iterations of Name1, Name2...
Name1: 52 wallclock secs (52.06 usr + 0.01 sys = 52.07 CPU) @ 19206.39/s (n=1000000)
Name2: 1 wallclock secs ( 1.51 usr + 0.00 sys = 1.51 CPU) @ 661375.66/s (n=1000000)