frohes Fest erstemal,
ich bin ein Perl Anfänger, ich möchte ein Programm schreiben, daß nach dem Passwort fragt, wenn die Antwort richtig ist, gebt z.B. Richtig aus wenn nein kommt ein Abfrage weiter machen ja/nein z.B. ja wieder Passwort eingeben nein falsches Passwort.
Hier mein Script, aber ich weiß nicht was ich falsch mache. Danke im Voraus.
#!/usr/bin/perl -w
# Verzweigung
#//////////////////////////
$Passwd ="";
$Antwort="";
print "\n Geben Sie das Password ein :\n\t";
chop($Passwd=<>);
if ($Passwd eq "nachtwache")
{ print " \n\nDas Passwd ist Richtig!!!!!!";
elsif ($Passwd ne "JAe")
{
print "\n Nochmal probieren ?:";
if ($Antwort eq "Ja")
{
print "\n Passwd eingeben:" ;
chop($Passwd=<>)
if ($Passwd eq "nachtwache")
{
print " \n\nDas Passwd ist Richtig";
}
}
}
else { print " ok Tschuss "; }
}
else
{ print "Das Passwd ist leider falsch .";}
print "\n\n\tTschuess ...";
ich bin ein Perl Anfänger, ich möchte ein Programm schreiben, daß nach dem Passwort fragt, wenn die Antwort richtig ist, gebt z.B. Richtig aus wenn nein kommt ein Abfrage weiter machen ja/nein z.B. ja wieder Passwort eingeben nein falsches Passwort.
Hier mein Script, aber ich weiß nicht was ich falsch mache. Danke im Voraus.
#!/usr/bin/perl -w
# Verzweigung
#//////////////////////////
$Passwd ="";
$Antwort="";
print "\n Geben Sie das Password ein :\n\t";
chop($Passwd=<>);
if ($Passwd eq "nachtwache")
{ print " \n\nDas Passwd ist Richtig!!!!!!";
elsif ($Passwd ne "JAe")
{
print "\n Nochmal probieren ?:";
if ($Antwort eq "Ja")
{
print "\n Passwd eingeben:" ;
chop($Passwd=<>)
if ($Passwd eq "nachtwache")
{
print " \n\nDas Passwd ist Richtig";
}
}
}
else { print " ok Tschuss "; }
}
else
{ print "Das Passwd ist leider falsch .";}
print "\n\n\tTschuess ...";
Comment