気になったのでやってみた。 #!/usr/local/bin/perl use strict; use warnings; use 5.010; my $i = 1; sub say_arg { say "@_" } say_arg($i, ++$i, $i); say "--------------"; say "\$i => $i"; say "--------------"; say_arg($i, $i++, $i); __END__ 結…