Help for this page
sub get_date_perl2 { $_[0] =~ m/[|](\d{4})(\d{4})[|]/; return $2.$1; }
Benchmark: timing 50 iterations of Inline, Ovidian, Perl, Perl2... Inline: 19 wallclock secs (18.72 usr + 0.01 sys = 18.73 CPU) @ 2 +.67/s Ovidian: 17 wallclock secs (17.08 usr + 0.08 sys = 17.16 CPU) @ 2 +.91/s ... Inline 2.67/s 31% 25% -- -8% Ovidian 2.91/s 43% 37% 9% --
www.com | www.net | www.org
No recent polls found