ファイル名: w/subroutine.cgi

#!/usr/local/bin/perl

#------------------------------------------------------------
$Title = 'subroutine';
$BODY = '<BODY BGCOLOR="#000000" TEXT="#C0C0C0">';
$FONT_R = '<font color="#FF0000">';
$FONT_G = '<font color="#00FF00">';
$FONT_C = '</font>';
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>$Title</TITLE></HEAD>\n";
print "$BODY\n";
print "<blockquote>\n";
#------------------------------------------------------------
print "引数をわたして、サブルーチン内で、処理したものを返してもらう。\n";
print "<BR><BR>\n";
sub goukei {
$kazu = 0;
foreach $_ (@_){
$kazu += $_;
}
$kazu;

}
print "1から10まで合計 &goukei(1..10)\n";
print "<BR><BR>\n";
print &goukei(1..10);
print "<BR><BR>\n";
print "1から100まで合計 &goukei(1..100)\n";
print "<BR><BR>\n";
print &goukei(1..100);
print "<BR><BR>\n";
print "1から1000まで合計 &goukei(1..1000)\n";
print "<BR><BR>\n";
print &goukei(1..1000);
print "<HR>\n";

print "たくさん引数をわたして、サブルーチン内で、処理\n";
print "<BR><BR>\n";
print "&a('John');
&a('Tom','Merry');
&a('warewan');\n";
print "<BR><BR>\n";
print "\$_[1]\n";

&a('John');
&a('Tom','Merry');
&a('warewan');

sub a {
print "$_[1]\n";
print "<BR>\n";
if ($_[0] eq 'warewan'){print "warewanさん、こんにちは。\n";}
}

#------------------------------------------------------------
print "</blockquote>\n";
print "</BODY>\n";
print "</HTML>\n";
exit;