linux-l: perl II / Hashes

[Olaf Radicke]

Marek Froehlich wrote:

> On Mon, 20 Aug 2001 22:58:20 +0000, Olaf Radicke wrote:
>
> >Hi !
> >Es soll ein Programm geschrieben werden,
> >das Zeichenketten einliest und die dazu passenden
> >Zeichenketten ausgibt. Und das, mit hilfe eines
> >Hash.
> >Hier mein Skript:
> >
> >#! /usr/bin/perl -w
> >
> >@liste = qw(rot apfel grün blatt blau ozean);
> >print ("\ngeben sie rot grün oder blau ein\n");
> >chomp ($ein_gabe = <STDIN>);
> >print ("$liste{$ein_gabe}");
>
> und wo ist Dein hash ?
>
> #-------SNIP SNAP ---------------
> #!/usr/local/bin/perl -w
>
> use strict;
>
> my %liste = ('rot' => 'apfel', 'grün' => 'blatt', 'blau' => 'ozean');
> printf "\ngeben %s, %s oder %s ein\n", keys(%liste);
> my $eingabe;
> chomp($eingabe = <>);
> print "$liste{$eingabe}\n";
>
> Mit freundlichen Grüßen
>
> Marek Fröhlich
>

Zu blöd... das wichtigste wider übersehen! Jetzt
ist mir auch die Fehlermeldung klar. Danke.

mfg Olaf