This shows you the differences between two versions of the page.
kurs:sparse_array.pl [2014/09/10 21:22] |
kurs:sparse_array.pl [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | use strict; | ||
+ | |||
+ | |||
+ | my @a; | ||
+ | $a[1] = 'eins'; | ||
+ | $a[10] = 'zehn'; | ||
+ | $a[100] = 'hundert'; | ||
+ | |||
+ | my $i; | ||
+ | foreach (@a) { | ||
+ | printf "%s %s\n", $i, $_ if $_ ; | ||
+ | $i++; | ||
+ | } | ||
+ | </code> | ||
+ | |||
+ | mit hash | ||
+ | |||
+ | <code> | ||
+ | use strict; | ||
+ | |||
+ | my %a; | ||
+ | $a{1} = 'eins'; | ||
+ | $a{10} = 'zehn'; | ||
+ | $a{100} = 'hundert'; | ||
+ | $a{1000000} = 'million'; | ||
+ | $a{1000000000} = 'milliarde'; | ||
+ | |||
+ | foreach (sort keys %a) { | ||
+ | printf "%s %s\n", $_, $a{$_}; | ||
+ | | ||
+ | } | ||
+ | </code> | ||
+ | |||
+ | |||