明解Ｃ言語 入門編 > 6. 関数 > 識別子の有効範囲を確認する Perl $x = 700; sub print_x { print "$x\n"; } sub main { my $x = 800; &print_x; # 700 print "$x\n"; # 800 for (1..4) { my $x = $_ * 100; print "$x\n"; # 100 〜 400 } print "$x\n" # 80…