Opened by weismat at 2003-11-24 16:57
User since
2003-08-04
5870 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5870 Artikel
ModeratorIn
[quote=weismat,24.11.2003, 15:57]Ich möchte in einem Hash für jeden Schlüssel alle möglichen Zielwerte in einem Array halten. Das Ganze soll mit einem Hash mit Referenzen auf ein Array machen.
Wie mache ich das am besten ? Der Code sieht ungefähr so aus:
[/quote]
Statt if-else kannst Du einfach
schreiben, egal ob es da schon ein anonymes Array gibt oder nicht. (Danke an pq, die mir diesen Sachverhalt gerade neulich erst im Bewustsein verankert hat.) Der Punkt ist, dass das push Array-Kontext erzwingt, wenn kein anonymes Array im Wert ist, wird halt eins angelegt und mit dem Wert gefüllt.\n\n
<!--EDIT|Crian|1070015586-->
Wie mache ich das am besten ? Der Code sieht ungefähr so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
for $line (@lines) {
$key=xxx;
$value=yyy;
if defined($hash{key} {
#add value to array
} else {
$hash{key}=\[$value]
}
}Statt if-else kannst Du einfach
Code: (dl
)
push $hash{$key}, $value;schreiben, egal ob es da schon ein anonymes Array gibt oder nicht. (Danke an pq, die mir diesen Sachverhalt gerade neulich erst im Bewustsein verankert hat.) Der Punkt ist, dass das push Array-Kontext erzwingt, wenn kein anonymes Array im Wert ist, wird halt eins angelegt und mit dem Wert gefüllt.\n\n
<!--EDIT|Crian|1070015586-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite