Sahanya

Ein Hash ist ein Array mit assoziativen Elementen, d. h. diese stehen miteinander in Beziehung. Das einfachste Beispiel wäre eine Liste mit Namen und den dazugehörigen Paßworten.


%hash = qw (
sahanya passwort1
perun passwort2
);


Angesprochen werden einzelne Elemente so:

$hash{$name}; Wobei die Variable $name vorher durch z. B. ein Eingabefeld ermittelt worden sein kann.

#!\usr\bin\perl -w

%worte = qw( # hier werden die Paßworte zugeordnet
Sahanya passwort1
Perun passwort2
);

print "Wer bist du? ";
$name = <STDIN>; # hier wird der Name eingegeben
chomp $name;

print "Hallo $name\n";
$geheimwort = $worte{$name}; # hier erfolgt die Zuordnung des jeweiligen Paßwortes

print "Wie lautet das Geheimwort?\n";
$raten = <STDIN>; # hier wird das Paßwort eingegeben
chomp $raten;

while ($raten ne $geheimwort) { # falls das Paßwort falsch ist
print "Falsch!\n";
$ raten = <STDIN>;
chomp $raten;
}

if ($raten eq $geheimwort) { # wenn das Paßwort richtig ist
print "Richtig\n";
}

Achtung: dieser Code gibt eine Fehlermeldung aus, wenn bei der Frage nach dem Namen ein Name eingeben wird, der nicht im Hash definiert wurde. Für diesen Fall muss man noch eine if-Schleife einsetzen!

Andere Perl-Themen