linux-l: perl II / Hashes

[Marek Froehlich]

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
--
/ Marek Fröhlich | Scotty: Captain, hier Maschinenraum. Wir haben ein    \
| 13467 Berlin   |         Problem - ich brauch 2 Tage für die Reparatur.|
| Germany        | Kirk:   Ich geb Ihnen 2 Stunden!                      |
\                | Scotty: Ok. Scotty ende.                              /