1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
print "Geben sie die Anzahl benutzter Elemente ein:\n\n";
$E = <STDIN>;
chomp $E;
$F=$E;
$i=1;
do{print "Geben sie die Länge von Element $i in cm einemente ein:\n\n";
chomp($Elemente{"Element $i"} = <STDIN>);
$i++;
$F--;
}
while($F>0);
foreach $key (keys %Elemente){
print "$key, $Elemente{$key}\n"
}
1
2
3
4
5
6
7
8
9
10
Element 8, 17
Element 4, 13
Element 10, 19
Element 7, 16
Element 5, 14
Element 1, 10
Element 9, 18
Element 2, 11
Element 3, 12
Element 6, 15
2011-05-01T09:38:41 eraemien
1 2 3
foreach $key (sort {$a <=> $b} keys %Elemente){ print "$key, $Elemente{$key}\n" }