Login
Newsletter
Werbung

Do, 17. Juni 1999, 00:00

Perl/CGI-Workshop, Teil 7

Perl/CGI-Workshop, Teil 7.

Kontrollstrukturen (2)

Die "for"-Schleife ist in Perl genauso aufgebaut wie in C/C++:

#!/usr/bin/perl
# forloop.pl -- by W. Jährling
for ($versuche = 1; $versuche <= 3; $versuche++) {
 print "Enter your Login Name: ";
 $login = <STDIN>;
 print "Enter your Password: ";
 $passwd = <STDIN>;
 chomp $login; chomp $password;
 if (($login eq 'root') && ($password eq 'tmt1w2di')) {
 $correct = 1;
 last; # Schleife verlassen
 }
 print "Login incorrect!\n";
}
die "3 trys and you are OUT!\n" if not $correct;
# ...

Die drei Teile des Schleifenkopfes sind also auch in Perl:

  1. Initialisierungs-Anweisung (wird einmal ausgeführt, bevor die Schleife betreten wird)
  2. Bedingung (entsprechend der while-Schleife)
  3. Iterations-Anweisung (wird nach jedem Schleifendurchlauf ausgeführt)

Zusätzlich gibt es in Perl auch noch die aus "awk" bekannte foreach-Schleife. Diese ermöglicht es, komfortabel ein Array durchzuarbeiten.

#!/usr/bin/perl
# foreach.pl -- by W. Jährling
@dokument = ("Erste Zeile", 3.14 "Dritte Zeile", 10 .. 13);
foreach $zeile (@dokument) {
 $cnt++;
 print "Zeile $cnt ist: $zeile\n";
}
# Eine andere Anwendung von "foreach" ist das da:
foreach $cnt (1 .. 100) {
 print "Have a lot of fun!\n"; # Gibt 100 mal den Text aus
}

Beachten Sie dabei bitte, dass die Variable, mit der das Array durchgearbeitet wird, vor der Klammer stehen muss. In der Klammer steht lediglich das Array.

Im nächsten Kapitel werden wir uns mal ansehen, wie man reguläre Ausdrücke (regular expressions oder einfach "regexp"s) in Perl verwendet. Falls Sie noch nie mit Regexps zu tun hatten, brauchen Sie natürlich keine Angst zu haben: Es wird nicht vorausgesetzt, dass Sie sich damit auskennen.

Kommentare (Insgesamt: 0 )
Pro-Linux
Pro-Linux @Facebook
Neue Nachrichten
Werbung