Opened by Gast at 2006-05-08 21:51
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
man kann es nachbauen:
dass $_ scheint irgendwie durchgereicht zu werden.
nachdem kein DATA mehr vorhanden ist, wird $_ in der Funktion foo undef
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use strict;
use warnings;
use Data::Dumper;
my @list = qw/uhu1 uhu2 uhu3/;
print Dumper(\@list);
foreach (@list) { foo($_); }
print Dumper(\@list);
sub foo {
while (<DATA>) {
print "$_";
}
}
__DATA__
hutzel
putzel
ultimo
dass $_ scheint irgendwie durchgereicht zu werden.
nachdem kein DATA mehr vorhanden ist, wird $_ in der Funktion foo undef