1999-02-23 自動記憶域期間 と 静的記憶域期間 Perl 明解C言語 入門編 > 6. 関数 > 自動記憶域期間 と 静的記憶域期間 Perl $fx = 0; sub func { $sx; my $ax; printf("%3d%3d%3d\n", $ax++, $sx++, $fx++); } print " ax sx fx\n"; print "---------\n"; for (1..10) { &func; } 実行結果 L:\>perl lesson_06_053.pl ax sx fx - 0 0 0 0 1 1 0 2 2 0 3 3 0 4 4 0 5 5 0 6 6 0 7 7 0 8 8 0 9 9