Opened by Opaxtl at 2007-04-19 16:24
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
sub foo {
my $href = shift;
# Arbeit mit Referenz Hash
foreach my $key (keys %$href) {
my $value = $href->{$key};
print "$key => $value\n";
}
}
my %hash = ('a'=>1, b=>2);
foo(\%hash)edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1177008300-->