Rename file

1 files changed, 0 insertions, 123 deletions

diff --git a/Aufgabe1/skrip1.pl b/Aufgabe1/skrip1.pl
deleted file mode 100644
index 429bec6..0000000
--- a/Aufgabe1/skrip1.pl
+++ /dev/null
@@ -1,123 +0,0 @@
-#!/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";