404 Blog Not Found:perl - for(;;)よりforeach ふーむ #!/usr/bin/env perl use strict; use warnings; use Benchmark qw/cmpthese timethese/; for my $e ( 0 .. 6 ) { my $n = 10**$e; print "#### loop $n times\n"; cmpthese( timethese( 0, { for => sub { my $dummy; for ( my $i = 0 ; $i < $n ; $i++ ) { $dummy += $i } }, foreach => sub { my $dummy; foreach my $i ( 0 .. $n - 1 ) { $dummy += $i } }, for2 => sub { my