[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