Skip to content

Instantly share code, notes, and snippets.

@goocey
Created April 19, 2015 04:37
Show Gist options
  • Save goocey/8f08f16072386a355c17 to your computer and use it in GitHub Desktop.
Save goocey/8f08f16072386a355c17 to your computer and use it in GitHub Desktop.
my $profile = [{
"鈴木" => [{"address" => "東京都千代田区"}],
"山田" => [{"address" => "東京都葛飾区"}]
}];
foreach my $profile_record( $profile) {
foreach my $keys(keys $profile_record) {
foreach my $human ($profile_record->[$keys]) {
my %human_data = %$human;
#print "human\n";
#print Dumper($human);
#print "humandata\n";
#print Dumper(%human_data);
foreach my $data (values %$human) {
foreach my $human_data (@$data) {
print Dumper($human_data->{'address'});
}
}
}
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment