[Cologne-pm] Hash von Hash von Array???
A. Pagaltzis
pagaltzis at gmx.de
Mon Feb 23 14:48:05 CST 2004
* Wolfgang Weisselberg <pl3rofb02 at sneakemail.com> [2004-02-23 02:59]:
> Eingabe: "Haarausfall, Heisshunger, Streichelsucht"
>
> my $Krankheiten = "Haarausfall, Heisshunger, Streichelsucht";
> my @Krankheiten = split /,/, $Krankheiten;
>
> use Data::Dumper;
> print Dumper \@Krankheiten;
> => $VAR1 = [
> 'Haarausfall',
> ' Heisshunger',
> ' Streichelsucht'
> ];
> Da sind ja Spaces am Anfang!
> Ein "split /\s*,\s*/, $Krankheiten" behebt das.
Andere Möglichkeit: man gibt eine Krankheit pro Zeile ein, und
schliesst die Eingabe mit einer leeren Zeile ab.
while(<>) {
chomp;
last if not /\S/; # Abbruch wenn kein nicht-Leerzeichen
push @Krankheiten, $_;
}
--
Gruss,
Aristoteles
"Wer nicht über sich selbst lachen kann, nimmt das Leben nicht ernst genug."
--
Regards,
Aristotle
"If you can't laugh at yourself, you don't take life seriously enough."
More information about the Cologne-pm
mailing list