#!/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";
# local $aの影響範囲
# ①local $a 以下全て。 local $aより、上位の範囲は、下位のlocal $a が無い場合と同じ。
our $a = 1;
{
$a = 10;
print "aa0:$a
\n"; #値は 10
{ $a=3;
print "aa1:$a
\n"; #値は 3
{ $a=5;
{ local $a =6;
print "aa2:$a
\n"; #値は 6
{ $a=7;
print "aa3:$a
\n"; #値は 7
{ $a =9;
print "aa4:$a
\n"; #値は 9
{ local $a=15;
print "aa5:$a
\n"; #値は 15
{ $a =11;
print "aa6:$a
\n"; #値は 11
}
print "aa7:$a
\n"; #値は 11
}
print "aa8:$a
\n"; #値は 9
}
print "aa9:$a
\n"; #値は 9
}
print "aa10:$a
\n"; #値は 9
}
print "aa11:$a
\n"; #値は 5
}
print "aa12:$a
\n"; #値は 5
}
print "aa13:$a
\n"; #値は 5
}
print "aa14:$a
\n"; #値は 5
print "----------
\n";
print "\n";
print "\n";