#! usr/bin/perl
use strict;
use warnings;
my %hash1 = (
'aa@AA.com'=>'11,aA',
'bb@BB.com'=>'22,bB',
'cc@CC.com'=>'33,cC',
'dd@DD.com'=>'44,dD',
'ee@EE.com'=>'55,eE',
'ff@FF.com'=>'66,fF',
'gg@GG.com'=>'77,gG',
'hh@HH.com'=>'88,hH',
);
#ハッシュの中身をprint
foreach(keys(%hash1)){
print "$_→$hash1{$_}\n
}
print "\n";
#値を「,」で区切ってprint
foreach (sort(keys(%hash1))){
my ($number,$code)=split(/,/,$hash1{$_});
print "$_の番号は$numberでコードは$codeです。\n";
}
#ハッシュの要素数を数えてみる(キーと値で1組とする)
my @array1=keys(%hash1);
my $array1=@array1;
print "hash1の要素数は$array1\n";
print "\n";
#ハッシュの値を1つ消してみる
print delete $hash1{'cc@CC.com'},"\n";
print "\n";