Help for this page
test2(1.00.000);
test2("1.00.000");
sub test2 { my ($var2) = @_; ... return ("Three") if ($var2 == /^3/ ); return undef; }
sub test2 { my ($var2) = @_; ... return ("Three") if ($var2 =~ /^3/ ); return undef; }
sub test2 { my $var2 = substr shift, 0, 1; ... return ("Three") if $var2 == 3 ; return undef; }
use strict; use warnings; ... return $translation[(substr shift, 0, 1)]; } print test2("1.00.000");
use strict; use warnings; ... test_3 => sub {test3("3.01.000")}, } )
$ perl test_if.pl Rate test_1 test_2 test_3 test_1 1294050/s -- -11% -51% test_2 1451608/s 12% -- -45% test_3 2642856/s 104% 82% --
www.com | www.net | www.org
No recent polls found