5-3
use strict;
use warnings;
use utf8;
my $kan_num = "五";
my %hash = (
〇 => 0,
壱 => 1,
二 => 2,
三 => 3,
四 => 4,
五 => 5,
六 => 6,
七 => 7,
八 => 8,
九 => 9,
拾 => 10,
);
print $hash{"$kan_num"} . "\n";
my @kan = ("〇","壱","二","三","四","五","六","七","八","九","拾");
for my $i (0..10){
if ($kan[$i] eq $kan_num){
print "$i\n";
}
}
5-4
use strict;
use warnings;
my $work;
foreach (<DATA>) {
if ( $_ =~ /2000/ ) {
}
elsif ( $_ =~ /(.+?) (\d.*)/ ) {
$work->{$1} += $2;
}
}
foreach ( keys $work ) {
printf( "%-8s %3d時間 %3d分\n", "$_", $work->{$_} / 60,
"$work->{$_}" );
}