2009-10-10T14:16:15 pq

argh, wieso laesst du denn in dem code jetzt die konstanten im use-statement wieder weg? an der einen stelle fixt du was und an der anderen machst du aber wieder den alten fehler.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl -w
use strict;
use warnings;
my $errorbindings = '';
BEGIN {
        eval "use Win32::File qw/ ARCHIVE /";
        if ($@) {
                $errorbindings = $@;
        }
}
if (!$errorbindings) {
        my $test = Win32::File::GetAttributes ("eval.pl",ARCHIVE);
        print "test: >$test<\n";
}
else { print "Schrott: >$errorbindings<\n" }

Quote

test: >1<

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl -w
use strict;
use warnings;
my $errorbindings = '';
BEGIN {
        eval "use Win32::Filex qw/ ARCHIVE /";
        if ($@) {
                $errorbindings = $@;
        }
}
if (!$errorbindings) {
        my $test = Win32::File::GetAttributes ("eval.pl",ARCHIVE);
        print "test: >$test<\n";
}
else { print "Schrott: >$errorbindings<\n" }

Quote

Bareword "ARCHIVE" not allowed while "strict subs" in use at eval.pl line 12.
Execution of eval.pl aborted due to compilation errors.

2009-10-10T14:17:35 pq

im uebrigen, was soll "Win32::Filex" fuer ein modul sein?

2009-10-10T14:20:23 pq

2009-10-10T13:50:13 bianca

Ich wäre Dir zu tiefstem Dank verpflichtet, wenn Du mir diese kleine Situation bitte als Ganzes lauffähig zeigen würdest

das kann ich nicht, ich hab kein windows hier. aber poste du bitte auch den wirklichen code, denn es gibt kein cpan-modul Win32::Filex