perlもjsとおんなじように書けばおんなじようにbindできるけどperlのことだからもっとさくっとかけたりする予感
失敗作
my @a;
for ( $i = 0; $i < 10; $i ++ ) {
$a[$i] = sub {$i*$i};
}
exit $a[4]->();
正解
my @a;
for ( $i = 0; $i < 10; $i ++ ) {
$a[$i] = sub {
my $i = shift;
return sub {$i*$i};
}->($i);
}
exit $a[4]->();
