3.6 KiB
3.6 KiB
title | author | date | url | wordtwit_post_info | categories | ||
---|---|---|---|---|---|---|---|
というわけで少し頑張ってみた | kazu634 | 1969-12-31 | /1970/01/01/_53/ |
|
|
途中だけど。
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); # 奇数の処理 print 'Odd Number: '; for (my $i = ; $i <= 12; $i = $i + 2){ $_odd += $foo[$i]; print $foo[$i] . " "; } print "\n"; # 偶数の処理 print 'Even Number: '; for (my $i = 1; $i < 12; $i = $i + 2){ $_even += $foo[$i]; print $foo[$i] . " "; } print "\n";