@ARGV und while(<>) - #66338 (Allgemeines zu Perl)

GwenDragon

2006-05-20 15:29

User since
2005-01-17
14757 Artikel
Admin1

[quote=toby,20.05.2006, 10:27]Hallo Community :)

folgendes Problem:

Code: (dl )

@ARGV = qw/a b c/;
print "uebergeben: @ARGV\n";
while(<>){
}
print "geblieben: @ARGV\n";

ich habe vorhin viel Zeit bei einer Übung verloren, bis ich festgestellt habe, dass while(<>) beim Durchlaufen von @ARGV diese Liste einfach leert.

Warum ist es so und wie kann ich die Argumente "retten"?

Danke!
Tobias[/quote]

Code: (dl )

@ARGV = qw/a b c/;
print "uebergeben: @ARGV\n";
foreach my $a (@ARGV){
  # in $a ist jetzt jeder Wert von @ARGV
  print "Argument ist $a\n";
}
print "geblieben: @ARGV\n";

So bleibt @ARGV erhalten!\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten