Commitel Aufgabe 1 bis 4

2 files changed, 228 insertions, 0 deletions

diff --git a/Aufgabe1/ErstesSkript.pl b/Aufgabe1/ErstesSkript.pl
new file mode 100644
index 0000000..297a0a4
--- /dev/null
+++ b/Aufgabe1/ErstesSkript.pl
@@ -0,0 +1,154 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: ErstesSkript.pl
+#
+#        USAGE: ./ErstesSkript.pl
+#
+#  DESCRIPTION: Ein Einfaches Skript(Aufgabe1.1).
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Martin Talarczyk,martin@talarczyk.de
+# ORGANIZATION: FH Südwestfalen, Iserlohn
+#      VERSION: 1.0
+#      CREATED: 01.10.2015 10:10:20
+#     REVISION: ---
+#===============================================================================
+
+# für
+use strict;
+use warnings;
+use utf8;
+use encoding "utf-8";
+
+printf "\n=== 1.1.02 ===\n";
+
+printf "%s\n", $0;
+
+printf "\n=== 1.1.03 ===\n";
+
+my $text = "Der Sinn des Lebens";
+
+my $zahl = 42;
+
+printf "%s ist %d.\n", $text, $zahl;
+
+printf "\n=== 1.1.04 ===\n";
+
+printf "%s %d und %d ist gleich %d\n", "Summe" . " " . "aus", 12, $zahl, 12 + $zahl;
+
+printf "\n=== 1.1.05 ===\n";
+
+printf "\$text" . " = " . '$text \n' . "$text\n";
+
+printf "\n=== 1.1.06 ===\n";
+
+my $meineDatein = `pwd` ;
+
+printf "Aktuelles Verzeichnis: %s \n",  $meineDatein;
+
+printf "\n=== 1.1.07 ===\n";
+
+my $context = "abcde-ABCDE";
+
+printf "Großsbuchstaben: %s\n", uc $context;
+
+printf "Kleinbuchstaben: %s\n", lcfirst $context;
+
+printf "Erster Buchstaben groß: %s\n", lc $context;
+
+printf "\n=== 1.1.08 ===\n";
+
+printf "Zeichen 4-8: %s\n", substr $context, 3, 5;
+
+printf "\n=== 1.1.09 ===\n";
+
+my $ref1 = \$context;
+
+my @arry;
+my $ref2 = \@arry;
+
+$arry[0] = "A";
+
+$arry[1] = "B";
+
+$arry[3] = "K";
+
+printf "%s\n", @arry;
+
+my %hash;
+my $ref3 = \%hash;
+
+printf "aus ref: %s\n", $$ref1;
+
+printf "die ref: %s\n", $ref1;
+
+printf "Das arry\n";
+
+printf "\n=== 1.1.10 ===\n";
+
+@arry = ( 1, 2, 3, 4, 5 );
+
+foreach my $v ( @arry ) {
+	printf "%i \n", $v;
+}
+
+printf "\n=== 1.1.11 ===\n";
+
+@arry = ( "eins", "zwei", "drei", "vier", "fünf" );
+
+foreach my $v ( @arry ) {
+	printf "%s \n", $v;
+}
+#
+
+printf "\nDas Array enthält %i Elemente.\n", $#arry +1 ;
+printf "@arry";
+printf "%d\n", 0 + @arry;
+
+for ( my $i = 0;$i < @arry ; $i++ ) {
+	printf"%s \n", $arry[$i];
+}
+
+printf "\n=== 1.1.12 ===\n";
+
+@arry = ( "eins", "zwei", "drei", "vier", "fünf" );
+
+foreach my $v ( @arry ) {
+	printf "%s \n", $v;
+}
+
+printf "\n=== 1.1.13 ===\n";
+
+# hash mit Daten füllen.
+my %hash13 = (
+	Name => "Martin Talarczyk",
+	Alter => 22,
+	Wohnort => "Iserlohn",
+	Zahl => $zahl
+);
+
+foreach( sort keys(%hash13)){
+	printf " %8s :: %s\n",	$_ , $hash13{$_};
+}
+
+printf "\n=== 1.1.14 ===\n";
+
+printf " %8s :: %s\n", "Name" ,$hash13{Name};
+
+printf " %8s :: %s\n", "Zahl" ,$hash13{Zahl};
+
+printf "\n=== 1.1.15 ===\n";
+
+foreach( sort keys(%hash13)){
+	printf " %8s :: %s\n",	$_ , $hash13{$_};
+}
+
+
+
+
+
+
diff --git a/Aufgabe1/ProduktName.pl b/Aufgabe1/ProduktName.pl
new file mode 100644
index 0000000..3e39ea8
--- /dev/null
+++ b/Aufgabe1/ProduktName.pl
@@ -0,0 +1,74 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: ProduktName.pl
+#
+#        USAGE: ./ProduktName.pl  
+#
+#  DESCRIPTION: Erstllt ein List von kombinasionen aus verschieden Buchstaben
+#               (Aufgabe1.2)
+#
+#      OPTIONS: ---
+# REQUIREMENTS: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Martin Talarczyk, talarczyk.martin@fh-swf.de
+# ORGANIZATION: FH Südwestfalen, Iserlohn
+#      VERSION: 1.0
+#      CREATED: 07.10.2015 12:47:08
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;	
+
+
+binmode (STDIN, ":encoding(UTF-8)");
+binmode (STDOUT, ":encoding(UTF-8)");
+binmode (STDERR, ":encoding(UTF-8)");
+use open ":encoding(UTF-8)";
+
+printf "=== 1.2.1 ===\n\n";
+
+my @buchstaben1 = ('b', 'm', 'n');
+my @buchstaben2 = ('a', 'e', 'i', 'o', 'u');
+my @buchstaben3 = ('b', 'c', 'd', 'x', 'y', 'z');
+
+my $count = 0;
+
+print "Buchstaben 1 : ";
+
+foreach my $i (@buchstaben1 ) {
+	printf $i." ";
+}
+print "\nBuchstaben 2 : ";
+
+foreach my $i (@buchstaben1 ) {
+	printf $i." ";
+}
+print "\nBuchstaben 3 : ";
+
+
+foreach my $i (@buchstaben3 ) {
+	printf $i." ";
+}
+print "\n\n";
+
+#-------------------------------------------------------------------------------
+#  Ausgabe
+#-------------------------------------------------------------------------------
+foreach my $i1 (@buchstaben1)
+{
+	foreach my $i2 (@buchstaben2)
+	{
+		foreach my $i3 (@buchstaben3)
+		{
+			printf $i1 . $i2 . $i3 . " ";
+		   $count++;	
+		}
+		printf "\n";
+	}
+}
+
+printf "\n %s Wörter erzeugt.", $count;