Leser: 19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
@spieler=("max","hans","franz","klaus");
print "Automatischer Spieplan ";
$anzahl=scalar(@spieler);
for ($i = 0;$i < $anzahl;$i++)
{
print "\n";
print "Alle Partien fuer Spieler "."''" .$spieler[$i] ."'' ".": ";
print "\n";
for ($j = 1;$j<$anzahl;$j++)
{
if ($i != $j)
{
print $spieler[$i] ." gegen ". $spieler[$j] . "\n";
}
}
}
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; my $anzahl = my @spieler = qw( max hans franz klaus); print "Automatischer Spieplan "; for my $i (0 .. $anzahl-1) { print "\nAlle Partien fuer Spieler '" .$spieler[$i] ."' : \n"; for my $j (0 .. $anzahl-1) { print $spieler[$i] ." gegen ". $spieler[$j] . "\n" if $i != $j; } }
1 2 3 4 5 6 7 8 9 10 11 12 13
#!/usr/bin/perl use strict; my @spieler = qw(max hans franz klaus); print "Automatischer Spieplan "; for my $a (@spieler) { print "\nAlle Partien fuer Spieler '$a' : \n"; for my $b (@spieler) { print "$a gegen $b\n" if $a ne $b; } }