@ar=qw(Vorname Hans Nachname Meier PLZ 24444 Ort Sonstwo); %Person=@ar; foreach (keys %Person){print "$_: $Person{$_}\n";} |
$person{name}="Hans"; $person{ort}="Sonstwo"; |
$person{"name,"ort"}=("Hans","Sonstwo"); |
@arr=qw(1 2 3 4 5 6 7 8 9); @hash{@arr}=@arr; |
for (1..10){ $h{$_}=$_; } @array=(1,2,3,4,5); delete @h{@array}; print join ("\n",keys %h); |
$haupt{name}="Hilton"; $haupt{vorname}="Paris"; $haupt{haarfarbe}="blond"; $sonstiges{alter}="wer weiss"; $sonstiges{iq}="blond eben"; $haupt{keys %sonstiges} = values %sonstiges; |