#!/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{$_};
}