标签: perl
perl -e 'print for (map {for (my $i=0; $i<=2; $i++) {print $_ * $i}} (1,2,3))'
给出: 0 1 2 0 2 4 0 1 4
perl -e 'print for (map {for (our $i=0; $i<=2; $i++) {print $_ * $i}} (1,2,3))'
给出: 0 1 2 0 2 4 0 3 6
请告知我上述不一致的结果