PERL - 6. Schleifen

Schleifen werden häufig verwendet, um Listen oder Hashes anzusprechen.

1. for-Schleife::

   	@liste = (117..120);
   
   	$anzahl = @liste;
   
   	for ($i=0; $i<$anzahl; $i++) {
   	  print "$liste[$i]\n";
   	}
   	

2. foreach-Schleife:

   	@liste = (117..120);
   
   	%hash = ("php" => "Personal Home Page",
           	 "perl" => "Practical Extraction and Report Language",
            	"html" => "Hyper Text Markup Language");
   
   	foreach $zahl (@liste) {
   	  print "$zahl\n";
   	}
   
   	foreach $key (keys %hash) {
   	  print "$key: $hash{$key}\n";
   	}
           

3. while-Schleife: ("kopfgesteuerte" Schleife)

   	#!/usr/bin/perl -w
   	# While-Schleifen
   
   	print "Gefällt dir PERL (J/N)? ";
   	$eingabe=;
   	chop ($eingabe);
   
   	while (!(($eingabe eq "J") || ($eingabe eq "j"))) {
   	  print "\nGefaellt dir PERL (J/N)? ";
   	  $eingabe=;
   	  chop ($eingabe);
   	}
   
   	print "... das ist gut ;-)\n";
   	

4. do-Schleife: ("fußgesteuerte" Schleife)

   	#!/usr/bin/perl -w
   	# Do-Schleifen
   
   	do {
   	  print "\nGefaellt dir PERL (J/N)? ";
   	  $eingabe=;
   	  chop ($eingabe);
   	} while (!(($eingabe eq "J") || ($eingabe eq "j")));
   
   	print "... das ist gut ;-)\n";