From d4d5bd0d54b37965927d35cb7a09fac6b0fce255 Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Fri, 9 Oct 2015 09:57:35 +0200
Subject: Correct assignment no.1

---
 Aufgabe1/skript2.pl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

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";
-- 
cgit v1.2.3-70-g09d2