#!/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";