Hashes που περιέχουν άλλες Hashes

Στο παράδειγμα που ακολουθεί η hash HofH περιέχει ονόματα ηπείρων ως keys, ενώ η value κάθε ενός από αυτά τα keys περιέχει μερικές hashes που έχουν ως keys τα ονόματα χωρών και ως values τις πρωτεύουσές τους:

my %HofH = (

Europe => {

Italy => "Rome",

Germany => "Berlin",

Spain => "Madrid",

},

Asia => {

Japan => "Tokyo",

"South Corea" => "Seoul",

},

Africa => {

Egypt => "Kairo",

Soudan => "Hartum",

Nigeria => "Lagos",

},

);

Για να προσθέσουμε μια καινούρια τιμή στην % HofH θα δηλώσουμε:

$HofH {America} = {

Mexico => "Mexico City",

Argentina => "Buenos Aires",

Peru => "Lima",

};

Η μεταβολή μιας value γίνεται με τον ακόλουθο τρόπο:

$HofH{Africa}{Soudan} = "Khartoum";

Για την εκτύπωση μιας value έχουμε:

print "$HofH{Africa}{Soudan}\n";

Για να βρούμε τα keys της αρχικής hash έχουμε:

my @keys = keys(%HofH);

Αυτό μας δίνει: Africa Asia Europe America

Για να δούμε τα keys κάθε μιας από τις εσωτερικές hashes θα χρειαστεί να χρησιμοποιήσουμε μια foreach:

foreach my $key (@keys)

{

my @hash_keys = keys %{$HofH{$key}};

print "@hash_keys\n";

}

Εδώ χρησιμοποιήσαμε την print γιατί θέλουμε απλώς να δούμε τα keys. Η εκτύπωση μας δίνει:

Soudan Egypt Nigeria

South Corea Japan

Spain Italy Germany

Argentina Mexico Peru

Τρέχουσα Ενότητα: Perl

Φιλικά - συνεργαζόμενα sites: Left Handed Products