#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
# my$aの影響範囲
# ①my$aの入れ子のスコープの中全て。
# ②しかし、入れ子のスコープの中にmy$aがある場合は、そのスコープの外側まで。
my $a = 1;
{
my $a = 10;
print "aa0:$a
\n"; #値は 10
{my $a=3;
print "aa1:$a
\n"; #値は 3
{ $a=5;
{ my $a =6;
print "aa2:$a
\n"; #値は 6
{ $a=7;
print "aa3:$a
\n"; #値は 7
{ my $a =9;
print "aa4:$a
\n"; #値は 9
{ $a=15;
print "aa5:$a
\n"; #値は 15
{ $a =11;
print "aa6:$a
\n"; #値は 11
}
print "aa7:$a
\n"; #値は 11
}
print "aa8:$a
\n"; #値は 11
}
print "aa9:$a
\n"; #値は 7
}
print "aa10:$a
\n"; #値は 7
}
print "aa11:$a
\n"; #値は 5
}
print "aa12:$a
\n"; #値は 5
}
print "aa13:$a
\n"; #値は 10
}
print "aa14:$a
\n"; #値は 1
print "----------
\n";
print "\n";
print "\n";