#!/usr/local/bin/perl
use strict;
use warnings;
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "
\n";
print "CGIのテスト\n";
print "\n";
print "\n";
print "------------------
\n";
my @xyz = &answer1(80, 55, 75);
print "合計点数=$xyz[0]点で、平均点数=$xyz[1]点です。\n
";
my @abc = (80, 55, 75);
@xyz = &answer(@abc);
print "合計点数=$xyz[0]点で、平均点数=$xyz[1]点です。
";
my($x1,$x2) = &answer(@abc);
print "合計点数=$x1点で、平均点数=$x2点です。
";
($x1,$x2) = &answer1(@abc);
print "合計点数=$x1点で、平均点数=$x2点です。
";
$x1 = &answer2(@abc);
print "平均点数=$x1点です。
";
my $num1 = 80;
my $num2 = 55;
my $num3 = 75;
my $triple_num = &triple( $num1, $num2, $num3 );
print "$num1 と $num2 と $num3の和は、 $triple_numです。
\n";
sub triple {
my $num = shift;
my $num1 = shift;
my $num2 = shift;
return $num + $num1 + $num2;
}
sub answer {
my $total = $_[0] + $_[1] + $_[2];
my $mean = $total / 3;
my @asdf = ($total,$mean);
return @asdf;
}
sub answer1 {
# ここで引数を@_で受け取る
my ($x, $y, $z) = @_;
my $total = $x + $y + $z;
my $mean = $total / 3;
return ($total,$mean);
}
sub answer2 {
# ここで引数を@_で受け取る
my @num_list=@_;
my $total;
for my $num (@num_list) {
$total += $num;
}
my $mean = $total / 3;
}
print "------------------
\n";
print "\n";
print "\n";