Verschwinden des Arrays - #184682 (Allgemeines zu Perl)

hlubenow

2016-05-04 15:48

User since
2009-02-22
876 Artikel
BenutzerIn
[default_avatar]

Interessant. Das hängt irgendwie mit dem "$_" zusammen.
Hier ist @dateien weg (Datei "a.csv" existiert im Verzeichnis):

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;
my @dateien = ("a.csv");
my $fh;
print "Also hier bin ich @dateien\n";    #hier ist das Array noch da
foreach (@dateien) {
    open ($fh, "<", "$_");
    while (<$fh>) {}
    close($fh);
} 
print "Ich @dateien bin aufeinmal weg \n";    #hier ist es verschwunden

Hier bleibt es da:

Code (perl): (dl )

#!/usr/bin/perl
use warnings;
use strict;
my @dateien = ("a.csv");
my $fh;
print "Also hier bin ich @dateien\n";    #hier ist das Array noch da
foreach my $i (@dateien) {
    open ($fh, "<", "$i");
    while (<$fh>) {}
    close($fh);
} 
print "Ich @dateien bin aufeinmal weg \n";    #hier ist es verschwunden