kurs:sparse_array.pl
Differences
This shows you the differences between two versions of the page.
| — |
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> | ||
| + | |||
| + | |||
kurs/sparse_array.pl.txt ยท Last modified: 2014/09/10 21:22 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
