最後の13桁目はチェックデジットだから、無視しなきゃいけなかった。だからこんな感じ:
use strict;
use warnings;
# 変数の宣言
my $temp_isbn;
my $_odd;
my $_even;
# 適当なisbn10を代入して、978をつける
$temp_isbn = '978' . '4582744176';
print "isbn: " . $temp_isbn . "\n";
# 一桁ずつばらして配列@fooに代入
my @foo = split(//, $temp_isbn);
# 奇数の処理
# @fooには13桁のisbnが入っている。配列は0-12まで。
# @foo[12]はチェックデジットなので、しかとする。
print 'Odd Number: ';
for (my $i = ; $i <= 11; $i = $i + 2){
$_odd += $foo[$i];
print $foo[$i] . " ";
}
print "\n";
# 偶数の処理。以下同文。
print 'Even Number: ';
for (my $i = 1; $i <= 11; $i = $i + 2){
$_even += $foo[$i];
print $foo[$i] . " ";
}
print "\n";