覚え書きっていうかメモ

ハッシュ全然やってなくて、ほんと苦手ｗ
以前苦手になってた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}
    }
}

#http://codeshare.io/48933