2009-10-10T14:33:51 pq

2009-10-10T11:58:49 pq

schreib ein BEGIN um das require und import. oder schreib ARCHIVE() bei der benutzung.

ist das so schwer zu verstehen? schreib dort, wo du ARCHIVE *benutzt* (also ja wohl im funktionsaufruf von GetAttributes), stattdessen ARCHIVE(). weil es *dann* von perl nicht mehr als bareword angesehen wird.

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

Undefined subroutine &main::ARCHIVE called at eval.pl line 12.