perl string key array

[Verwijderd]

Ik heb een scriptje gemaakt in php dat ik nu moet omzetten naar perl.
Dat lukt op zich wel op 1 ding na.
In php kan je makkelijk deze dingen doen:

PHP:

<?php

$arr = array();
$arr["test"] = array();
$arr["test"]["iets"] = "nog iets";


foreach($arr as $key => $arr1)
{
     foreach($arr1 as $key1=> $value1)
     {
           print "arr[" . $key . "][" . $key1 . "] = " . $value1;
     }
}

Nu is mijn vraag of dit mogelijk is in perl en hoe?

[TrailBlazer]

In Perl heten dit soort dingen hashes. Dus als je zoekt op accessing multidimensional hashes vind je wel een voorbeeld. Omdat ik anders niks zinvols hier kan posten maak ik maar gelijk gebruik van de mogelijkheden.

code:

#!/local/openpkg/bin/perl -w

$hash{"key1"}{"a"}=1;
$hash{"key1"}{"b"}=2;
$hash{"key2"}{"a"}=3;
$hash{"key2"}{"b"}=4;
foreach $key (sort(keys(%hash))) {
  foreach $key2 (sort(keys(%{$hash{$key}}))) {
    print "$key $key2 " . $hash{$key}{$key2} . "\n";
  }
}

output

code:

key1 a 1
key1 b 2
key2 a 3
key2 b 4

met name regel 8 in het scriptje is altijd even lastig.

[ Voor 38% gewijzigd door TrailBlazer op 09-01-2008 09:32 ]