diff options
| -rw-r--r-- | Aufgabe1/skript2.pl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/Aufgabe1/skript2.pl b/Aufgabe1/skript2.pl index 186b3cd..d463065 100644 --- a/Aufgabe1/skript2.pl +++ b/Aufgabe1/skript2.pl @@ -26,14 +26,28 @@ my @buchstaben1 = ('b', 'm', 'n'); my @buchstaben2 = ('a', 'e', 'i', 'o', 'u'); my @buchstaben3 = ('b', 'c', 'd', 'x', 'y', 'z'); +printf "Buchstaben 1: @buchstaben1\n"; +printf "Buchstaben 2: @buchstaben2\n"; +printf "Buchstaben 3: @buchstaben3\n\n"; + +my $zahl = 0; + foreach my $i1 (@buchstaben1) { foreach my $i2 (@buchstaben2) { foreach my $i3 (@buchstaben3) { + $zahl++; + printf $i1 . $i2 . $i3 . " "; + + if ($zahl % 8 == 0 ) + { + printf "\n"; + } } - printf "\n"; } } + +printf "\n\n$zahl Woerter erzeugt"; |