1 files changed, 154 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{$_};
+}
+
+
+
+
+
+