Opened by toby at 2006-05-20 12:27
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
Ich denke toby ruft sein Perlscript mit Dateinamen als Argumenten auf, die Dateien will er dann in der while-Schleife durchwandern, moechte aber den Inhalt von @ARGV behalten.
Grusz Christian.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
{
local @ARGV = @ARGV; # lokale Kopie von @ARGV anlegen
while(<>) {
print if not m(^#); # gibt's aus wenn's kein Kommentar ist
}
}
printf("Groesze von \@ARGV: %d\n", scalar(@ARGV));
Grusz Christian.
,,Das perlt aber heute wieder...'' -- Dittsche