Create 1.2.*

1 files changed, 39 insertions, 0 deletions

diff --git a/Aufgabe1/skript2.pl b/Aufgabe1/skript2.pl
new file mode 100644
index 0000000..186b3cd
--- /dev/null
+++ b/Aufgabe1/skript2.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: script2.pl
+#
+#        USAGE: ./script2.pl  
+#
+#  DESCRIPTION: Adsense name finder.
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de
+# ORGANIZATION: FH Südwestfalen, Iserlohn
+#      VERSION: 1.0
+#      CREATED: 02.10.2015 10:56:07
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+my @buchstaben1 = ('b', 'm', 'n');
+my @buchstaben2 = ('a', 'e', 'i', 'o', 'u');
+my @buchstaben3 = ('b', 'c', 'd', 'x', 'y', 'z');
+
+foreach my $i1 (@buchstaben1)
+{
+	foreach my $i2 (@buchstaben2)
+	{
+		foreach my $i3 (@buchstaben3)
+		{
+			printf $i1 . $i2 . $i3 . " "; 
+		}
+		printf "\n";
+	}
+}