diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-10-09 09:57:35 +0200 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-10-09 09:57:35 +0200 |
| commit | d4d5bd0d54b37965927d35cb7a09fac6b0fce255 (patch) | |
| tree | e891444eaed05ba7ed755cbf920df201b39fe3d7 /Aufgabe1 | |
| parent | d30a3554f00097b3ff9c41d1acccd6a392817a99 (diff) | |
| download | Skriptsprachen-d4d5bd0d54b37965927d35cb7a09fac6b0fce255.tar.gz Skriptsprachen-d4d5bd0d54b37965927d35cb7a09fac6b0fce255.zip | |
Correct assignment no.1
Diffstat (limited to 'Aufgabe1')
| -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"; |