Hallo,
ich habe ein
while (.... ) { ...... }
Problem mit den Klammern "{ }".
Ohne while funktioniert dies, mit while läuft ein Fehler.
perl kapitel.1.14-15.perl
syntax error at kapitel.1.14-15.perl line 33, near ") {"
syntax error at kapitel.1.14-15.perl line 39, near "}"
Execution of kapitel.1.14-15.perl aborted due to compilation errors.
Es sind nur 2 geschlossene Klammern.
Kann jemand das lösen?
Danke und Gruss
edsw1
#!/usr/bin/perl
%worte = qw(
fred Kamel
barney Lama
betty Alpaka
wilma Alpaka
);
print "Wie heissen Sie?\n";
$name = <STDIN>;
chomp ($name);
$origigaler_name = $name;
print " 1 $original_name\n";
$name =~ s/\W.*//;
$name =~ tr/A-Z/a-z/;
print " 2 name $name\n";
if ($name eq "randal") { #begin if,0
print " 3 Hallo Randal! Schön, dass du da bist ..\n";
} #0
else { #ende if/begin else,1
print " 4 Hallo $origigaler_name!\n";
$geheimwort = $worte{$name};
chomp ($geheimwort);
print " 8 Geheimwort $geheimwort\n";
if ($geheimwort eq ""){ #3
$geheimwort ="groucho";
# chomp ($geheimwort);
print " 5 Geheimwort $geheimwort\n";
} #ende if,3
print "6 Wie lautet das Geheimwort\n";
$rateversuch= <STDIN>;
chomp ($rateversuch);
print " 7 RateVersuch $rateversuch\n";
While ($rateversuch ne $geheimwort) {
print "Falsch geraten, noch einmal\n ";
$rateversuch = <STDIN>;
chomp ($rateversuch);
print "9 neuer Rateversuch $rateversuch\n ";
};
}
