ハッシュ全然やってなくて、ほんと苦手ｗ
以前苦手になってたopen関数は慣れた
ただの僕のメモみたいなもんだけど、
このメモを利用してハッシュの理解を深めてくれたらうれしいね、と思う
%hash1 = ("1" => "aaa_data","2" => "bbb_data");
%hash2 = ("1" => "ccc_data","2" => "ddd_data");
push(@list, \%hash1);
push(@list, \%hash2);
print $list[0]{1};
print $list[1]{2};
print "\n\n\n";
for $n(0..1){
for $s(1..2){
print $list[$n]->{$s}
}
}
use warnings;
use Data::Dumper;
@a=(9,4,7,2,2,3,5);
for (@a){
$c = sprintf "%d",$_-6;
$c =~ s/-//ig;
$h={$c => $_};
push(@d,$h);
#push(@n,$c);
}
print $d[0];
print Dumper @d;
#!/usr/bin/perl
use warnings;
use Data::Dumper;
@a=(9,4,7,2,2,3,5);
for (@a){
$c = sprintf "%d",$_-6;
$c =~ s/-//ig;
$h{$c}=$_;
}
for(0..9){
if(defined($h{$_})){print "1"}else{print "0"}
}
use warnings;
@a=(2,3,1,6,4,5,0,7,8,9);
for $num(0..9){
for (@a){
$c = sprintf "%d",$_-$num;
$c =~ s/-//ig;
$h{$c}=$_;
}
for(0..9){
if(defined($h{$_})){print $h{$_};last}
}
}