#!/usr/local/bin/perl
use strict;
use warnings;
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
require "liblary.pl"; #ライブラリの読み込み
&liblary::message1(); # 「こんにちは」と表示される
&liblary::message2(); # 「こんばんは」と表示される
=pod
my $num = 2;
{
# my $num = 1;
# 参照できる
# print $num;
print "qwe:$num
\n";
}
# この位置では参照できない
print "qwe1:$num
\n";
package Foo;
{
our $NUM = 1;
# 部分名で参照できる
# print $NUM;
print "qwe:$NUM
\n";
}
# 部分名では参照できない
#print $NUM;
print "qwe1:$NUM
\n";
# 完全修飾名で参照できる
#print $Foo::NUM;
print "qwe2:$Foo::NUM
\n";
=cut
#package Foo;
our $NUM = 1;
{
$NUM = 2;
print "qwe1:$NUM
\n"; # $NUM=2
}
print "qwe2:$NUM
\n"; # $NUM=1
print "------------------
\n";
print "\n";
print "\n";