#!/usr/bin/perl

@passwd = ("toor","pass2","xyz");

#Zähler für die Schleifendurchläufe:
$i = 0;

while($i < 3) {
print "Passwort eingeben: ";
$pw = <STDIN>;
chomp($pw);


foreach(@passwd)

# Test der Variableninhalte:
{print "DollarS: $_ ";
print "DollarPW: $pw \n"
}

  if ($pw eq $_)  
{ print "accepted! \n";
  last; }

    $i++;

if ($i == 3)
{print "Eingabe ist nur 3 mal möglich. \n Das Script wird nun beendet. \n";}
}

#!/usr/bin/perl

use strict;
use warnings;

my @passwords = qw/toor pass2 xyz/;

PASSWD: for (1..3) {
    print "Passwort eingeben: ";
    chomp(my $pw = <STDIN>);
    foreach my $valid (@passwords) {
        last PASSWD if ($pw eq $valid);
    }
    die "Eingabe ist nur 3 mal möglich.\n" if $_ == 3;
}

print "Passwort wurde akzeptiert.\n";

#!/usr/bin/perl

use strict;
use warnings;

my @passwd = ("toor","pass2","xyz");

#Zähler für die Schleifendurchläufe:
my $i = 0;

while($i < 3) {
    print "Passwort eingeben: ";
    my $pw_eing = <STDIN>;
    chomp($pw_eing);
    
    # merken, ob das Passwort gültig war
    my $gueltig = 0;
    
    # Test der Variableninhalte:
    foreach my $pwd (@passwd) {
        print "Passwort in Array: $pwd ";
        print "Passwort aus Eingabe: $pw_eing \n";
        
        if ($pw_eing eq $pwd) {
            print "accepted! \n";
            $gueltig = 1;
            last; # last für foreach-schleife
        }
        
    }
    
    last if $gueltig; # last für while-schleife
    
    # was macht das hier wohl....
    $i++;
    
    if ($i >= 3){ # >= ist besser, denn wer sagt, dass man $i immer nur um 1 erhöhen kann
        print "Eingabe ist nur 3 mal möglich. \n Das Script wird nun beendet. \n";
        exit(0); #dann machen wir das doch auch
    }
}

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1,0,"foo",0,"foo");

for(my $i = 0; $i <= $#array; $i++) {
     if ($array[$i] eq 'foo') {
               
 print "\"foo\" -String gefunden bei:";
               
 print " Position " . $i . "\n";
     } 
}
    

#!/usr/bin/perl

use strict;
use warnings;

my @array = (1,0,"foo",0,"foo");

foreach my $i (0..$#array) {
      
      print "\"foo\" -String gefunden bei: Position $i\n" if ($array[$i] eq 'foo');
               
}

#!/usr/bin/perl
use strict;
use warnings;

my @passwords = qw/ foo bar /;

my $count = 0;
{
    print "Passwort eingeben: ";
    chomp( my $input = <STDIN> );

    last if grep { $input eq $_ } @passwords;
    die "3 mal Falsch eingegeben.\n" if ++$count == 3;
    redo;
}

print "Access Granted\n";

#!/usr/bin/perl
use strict;
use warnings;

my @passwords = qw/ foo bar /;

my $count    = 0;
my $is_valid = 0;
while ( $count++ < 3  and  not $is_valid ) {
    print "Passwort eingeben: ";
    chomp( my $input = <STDIN> );

    $is_valid = grep { $input eq $_ } @passwords;
}

die "Access Denied\n" if not $is_valid;
print "Access Granted\n";