Create 1.1.*

1 files changed, 123 insertions, 0 deletions

diff --git a/Aufgabe1/skrip1.pl b/Aufgabe1/skrip1.pl
new file mode 100644
index 0000000..429bec6
--- /dev/null
+++ b/Aufgabe1/skrip1.pl
@@ -0,0 +1,123 @@
+#!/usr/bin/env perl 
+#===============================================================================
+#
+#         FILE: skrip1.pl
+#
+#        USAGE: ./skrip1.pl  
+#
+#  DESCRIPTION: 
+#
+#      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:02:43
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+use utf8;
+
+printf "Aufgabe 1.1.1\n";
+printf "Hallo Welt\n";
+
+printf "Aufgabe 1.1.2\n";
+printf "$0\n";
+
+printf "Aufgabe 1.1.3\n";
+
+my $zahl = 12;
+my $text = "text";
+
+printf "Die Zahl lautet: " . $zahl . ", der Text lautet " . $text . "\n";
+printf "Die Zahl lautet: %d, der Text lautet %s\n", $zahl, $text;
+printf "Die Zahl lautet: %4d, der Text lautet: %-15s\n", $zahl, $text;
+
+printf "Aufgabe 1.1.4\n";
+my $factor = 123.4;
+my $ergebnis = $zahl * $factor;
+
+printf "zahl * factor = %10.3f\n\n", $ergebnis;
+
+printf "Aufgabe 1.1.5\n";
+
+printf '$ergebnis' . "\n";
+printf "$ergebnis \n";
+
+printf "Aufgabe 1.1.6\n";
+
+my $lsoutput = `ls`;
+printf "Einfache ls Ausgabe:\n%-15s\n", $lsoutput;
+
+printf "Aufgabe 1.1.7\n";
+my $zeichenkette = "abcde-ABCDE";
+
+printf "Zeichenkette uc: %-15s", uc($zeichenkette);
+printf "Zeichenkette ucfirst: %-15s", ucfirst($zeichenkette);
+printf "Zeichenkette lc: %-15s", lc($zeichenkette);
+printf "Zeichenkette lcfirst: %-15s", lcfirst($zeichenkette);
+
+printf "Aufgabe 1.1.8\n";
+printf "Zeichenkette Substring: %-15s\n", substr($zeichenkette, 3, 4);
+
+printf "Aufgabe 1.1.9\n";
+my $ref = \$zahl;
+
+printf "Referent: $ref, Wert: $$ref\n";
+
+printf "Aufgabe 1.1.10\n";
+my  @feld = ('b' .. 'i');
+printf "Der Inhalt des Arrays ist: \n@feld\n";
+
+printf "Aufgabe 1.1.11\n";
+
+my @feld1 = qw(text1 text2);
+my @feld2 = qw/text3 text4/;
+my @feld3 = ("text5", "text6");
+
+printf "feld1: @feld1 -- feld2: @feld2 -- feld3: @feld3\n";
+
+foreach (@feld)
+{
+	printf $_ . "\n";
+}
+
+foreach my $i (@feld)
+{
+	printf $i . "\n";
+}
+ 
+foreach my $i (keys @feld)
+{
+	printf "Schlüssel: $i -- Wert: $feld[$i]\n";
+}
+
+for(my $i = 0; $i < scalar keys @feld; $i++)
+{
+	printf "Schlüssel: $i -- Wert -- $feld[$i] -- Skalar : %4d\n", scalar keys @feld;
+}
+
+printf "Aufgabe 1.1.13\n";
+
+my %hash = (
+	Name => "Stefan Suhren",
+	Alter => 21,
+	Wohnort => "Iserlohn",
+	Zahl => $zahl
+);
+
+foreach my $i (sort keys %hash)
+{
+	printf "Schlüssel: $i -- Wert: $hash{$i}\n";
+}
+
+printf "Name: $hash{Name}\n";
+printf "Alter: $hash{Alter}\n";
+
+$hash{Studium} = "Informatik";
+
+printf "Studium: $hash{Studium}\n";