nested local() scoping: @ARGV und $/ (Allgemeines zu Perl)

[thread]8762[/thread]

nested local() scoping: @ARGV und $/

dukeofnukem

2007-02-15 20:49

User since
2007-01-15
47 Artikel
BenutzerIn
[default_avatar]

Alohá!

Folgendes Phänomen:

Code: (dl )

sub get_errors {
    my $file = $_[0];
    my $cont = do { local( @ARGV, $/ ) = $file; <> };
    <regexp auf $cont mit $_[1] hier>
    $1;
}

sub main {
    local @ARGV = @_;
    @ARGV = glob '<Dateiglob hier>' unless @ARGV;
    local $/ = "\n\n\n";
    [...]
    while (<>) {
        if (<regexp hier>) {
            $stat{$rtsdir}{'errors'}++;
            if ($opts{'errors'}) {
               
 my $error = get_errors($anotherfile, $case);
        [...]
            }
        next;
        }
        [...]
    }
}

Ist die Option nicht gesetzt, habe ich ca. 4000 Iterationen, mit gesetzter Option kommen nur 1700 zurück...

Der Trenner \n\n\n ist normalerweise der Beginn eines neuen Abschnitts in der Datei die ich analysieren möchte (die in @ARGV enthalten ist). Wenn ich beim Durchlaufen einer dieser Dateien auf einen Fehler laufe ist der Grund für diesen Fehler in einer anderen Datei ($anotherfile) zu finden die ich dann mittels get_errors nach dem Grund durchforste.

Habe mir schon @ARGV und S/ vor und nach dem Aufruf von get_errors printen lassen und keinen Unterschied feststellen können ~:-/

Was mache ich falsch?\n\n

drum&bass is a state of mind

2007-02-15 22:21

User since
2003-08-04
12208 Artikel
Admin1

mach mal noch
local *ARGV;
in der get_errors()
das ist der momentan benutzte filehandle (bzw. setzt du damit alle
variablen namens ARGV local, auch $ARGV)\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

dukeofnukem

2007-02-16 11:47

User since
2007-01-15
47 Artikel
BenutzerIn
[default_avatar]

THX! Das hats erschlagen.

Code: (dl )

    my $cont = do { local( *ARGV, $/ ); @ARGV = $file; <> };

Also war $ARGV noch von außen gesetzt, entsprechend hat <> falsch angesetzt? :rock:

drum&bass is a state of mind

2007-02-16 11:53

User since
2003-08-04
12208 Artikel
Admin1

[quote=dukeofnukem,16.02.2007, 10:47]Also war $ARGV noch von außen gesetzt, entsprechend hat <> falsch angesetzt? :rock:[/quote]
$ARGV (dateiname) und ARGV (filehandle), ja.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

betterworld

2007-02-16 16:06

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Und genau wie bei Kurze Frage zu Hash in Hash trifft auch fuer Dich zu: Mach vor dem while (<>) bitte noch ein local $_;

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

betterworld

2007-02-16 17:47

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=pq,15.02.2007, 21:21]mach mal noch
local *ARGV;
in der get_errors()
das ist der momentan benutzte filehandle (bzw. setzt du damit alle
variablen namens ARGV local, auch $ARGV)[/quote]
Das lokalisiert dann auch @ARGV, oder? Vielleicht kann man auch local *ARGV{IO} machen (ungetestet).

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

2007-02-16 18:12

User since
2003-08-04
12208 Artikel
Admin1

[quote=betterworld,16.02.2007, 16:47]Das lokalisiert dann auch @ARGV, oder?[/quote]
soll es ja in dem fall auch, denke ich.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

View all threads created 2007-02-15 20:49.