#!/Perl/bin/perl
use strict;
use warnings;
$| = 1; #flush output

# Arrays beginnen immer mit dem @ Zeichen
# Arrays koennen sofort durch eine Liste in runden Klammern initialisiert
# werden

my @words = ("Kamel", "Lama", "Auster"); #unser Geheimwort
my ($name, $guess, $ipass, $correct);

print "Wie heissen Sie? ";
$name = <STDIN>;
chomp $name;
if ( $name eq "gerhard" ) {
    print "Hallo Gerhard, wie nett daß du da bist!\n";
} 
else {
    print "Hallo $name!\n"; # Standard Gruß
    print "Wie lautet das Geheimwort? ";
    $guess = <STDIN>;
    chomp ( $guess );
# Skalaren Variablen koennen auch Integer oder
# oder Float Werte zugewiesen werden
    $ipass = 0;			
    $correct = "vielleicht";
    while ( $correct eq "vielleicht" ) {

# Der Zugriff auf ein Array Element erfolgt indem man den numerischen Index
# in eckige Klammern schreibt.
# Das Ergebnis ist ein Skalar, daher das $ Zeichen

	if ( $words[$ipass] eq $guess ) {  #richtig
	    $correct = "Ja";
	}
# der elsif Operator steht statt einem else if
	elsif ( $ipass < 2 ) { # weiterraten
	    $ipass = $ipass + 1;
	}
	else { # keine weiteren Passwörter
	    print "Falsch geraten, nochmal. Wie lautet das Geheimwort? ";
	    $guess = <STDIN>;
	    chomp $guess;
	    $ipass = 0;
	}
    }
}
exit;