Opened by Gast at 2006-05-08 21:51
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
Code: (dl
)
1
2
3
4
5
6
7
8
use Data::Dumper;
my @list = qw/uhu1 uhu2 uhu3/;
print Dumper(\@list);
foreach (@list) { foo($_); }
print Dumper(\@list);
sub foo { $_ = undef; }
umgehbar mit
Code: (dl
)
1
2
3
4
5
6
7
8
use Data::Dumper;
my @list = qw/uhu1 uhu2 uhu3/;
print Dumper(\@list);
foreach (@list) { foo($_); }
print Dumper(\@list);
sub foo { local $_; $_ = undef; }