1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
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";
|
