Perlでサブルーチンを使ってプログラムを完成させたい

前提・実現したいこと

サブルーチンを使って以下の3つのグループの平均得点を求めたいのですが
サブルーチンの定義文で手間取っています。
出来ればサブルーチン使用後のプログラムを提示して教えていただきたいです。
よろしくお願いします。
(「試したこと」に自分のプログラムを置いておきます)

<サブルーチンを使う前>
$ten1A = 93;
$ten2A = 65;
$ten3A = 73;
$tokutenA = $ten1A + $ten2A + $ten3A;
print("Aグループの得点は $tokutenA ¥n");

$ten1B = 99;
$ten2B = 89;
$ten3B = 45;
$tokutenB = $ten1B + $ten2B + $ten3B;
print("Bグループの得点は $tokutenB ¥n");

$ten1C = 74;
$ten2C = 81;
$ten3C = 68;
$tokutenC = $ten1C + $ten2C + $ten3C;
print("Cグループの得点は $tokutenC ¥n");

$heikin = ($tokutenA + $tokutenB + $tokutenC) / 3;
print("3つのグループの平均得点は $heikin ¥n");

発生している問題・エラーメッセージ

syntax code error

該当のソースコード

perl

試したこと

<自分のサブルーチン使用後のプログラム>
($tokuten1A, $tokuten2A, $tokuten3A) = &tenkansu(93, 65, 73);
($tokuten1B, $tokuten2B, $tokuten3B) = &tenkansu(99, 89, 45);
($tokuten1C, $tokuten2C, $tokuten3C) = &tenkansu(74, 81, 68);

sub tenkansu {
$group = $["A"];
$ten1 = $[0];
$ten2 = $[1];
$ten3 = $[2];
$tokuten = 0;
for($i = $ten1; $i <= $ten3; ++$i) {
$tokuten = $tokuten + $i;
}
print("$group[$i - 1] の得点は $tokuten \n");
$tokuten = return($ten1, $ten2, $ten3);
}
$heikin = ($tokutenA + $tokutenB + $tokutenC) / 3;
print("3つのグループの平均得点は $heikin \n");

補足情報（FW/ツールのバージョンなど）

Padre

行動規範の内容に同意します

回答1件

雑ですが書いてみました。

# perl test.pl
A グループの得点は 231
B グループの得点は 233
C グループの得点は 223
3 つのグループの平均点は 229

#!/usr/bin/perl

sub tenkansu {
	my $total = 0;
	my $group = shift ;
	foreach (@_) {
		$total += $_ ;
	}
	printf "%s グループの得点は %d\n", $group, $total;
	return $total ;
}

my @tokuten ;
my $gtotal = 0 ;
push @tokuten, &tenkansu("A",93,65,73) ;
push @tokuten, &tenkansu("B",99,89,45);
push @tokuten, &tenkansu("C",74,81,68);

foreach (@tokuten) {
	$gtotal += $_ ;
}

printf "%d つのグループの平均点は %d \n", $#tokuten + 1, $gtotal / ($#tokuten + 1);

投稿2019/06/10 12:24

scsi

総合スコア2840

yamadakazuki

2019/06/11 00:11

解答ありがとうございます! 無理なお願いかもしれませんが少しルールを加えさせて頂いてよろしいでしょうか・サブルーチンの定義文の行数を9行にする。・サブルーチンの引数の変数名を$group、$ten1、$ten2、$ten3の4つにする。・メインルーチンの行数を5行にする。・メインルーチンで、サブルーチンを3回呼び出して、戻り値を格納する変数をそれぞれ$tokutenA $tokutenB $tokutenCとする。できればやってみて頂きたいです。