Hallo zusammen, nachdem ich das erste Problem endlich mit Hilfe gelöst habe, nehme ich das zweite in Arbeit:
Ich habe eine Passwortabfrage probiert. Allerdings gibt mir das Script immer die Antwort, dass das Passwort ( obwohl richtig) falsch ist....
Außerdem ,wie kann ich überhaubt feststellen, dass der Username auch wirklich vorhanden ist....( mit exist?)
Schönen Dank...
#!/usr/bin/perl-w

%passwort = ("Max" =>"Moritz",
"Puste" =>"Kuchen",
"Hans" =>"Wurst",
"Maria" => "Josef",
"Hund" => "Katze");

print "Bitte geben Sie ihren Namen ein:";

$name = <STDIN>;
chomp $name;

if ($name eq "")
{
print "Willkommen $name!.\n";
}
else
{
print"Willkommen, $name!Bitte geben Sie ihr Passwort ein.\n";
}
$passwort1= <STDIN>;
chomp $passwort1;

if ($passwort1 ne $passwort)
{
print "Das Passwort ist nicht korrekt.\n";

}
else
{
print "Das Passwort ist korrekt. Willkommen! $name \n";
}

Neuling, probiers mal so:

#!/usr/bin/perl -w

%passwort = ("Max" =>"Moritz",
"Puste" =>"Kuchen",
"Hans" =>"Wurst",
"Maria" => "Josef",
"Hund" => "Katze");

$falscheingaben = 6;

my $i;
for($i = 0; $i < $falscheingaben; $i++){
print "Bitte geben Sie ihren Namen ein:";

$name = <STDIN>;
chomp $name;

if ($passwort{$name}) {
print"Willkommen, $name!Bitte geben Sie ihr Passwort ein.\n";
$passwort1= <STDIN>;
chomp $passwort1;
if ($passwort1 ne $passwort{$name}) {
print "Das Passwort ist nicht korrekt.\n";
}
else {
print "Das Passwort ist korrekt. Willkommen! $name \n";
last;
}
}
else {
print "Der Name ist nicht korrekt.\n";
}
}
if($i >=$falscheingaben){
print "$falscheingaben Falscheingaben\n";
}

Gruß Sabine

Vielen Dank.....jetzt gehts wieder weiter :)