識別子の有効範囲を確認する

明解Ｃ言語入門編 > 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"            # 800
}

&main;

実行結果



L:\>perl lesson_06_052.pl

700

800

100

200

300

400

800