windows attrib mit perl? (gelöst) - #126830 (Allgemeines zu Perl)

bianca

2009-10-10 15:50

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

Antwort zu 1: Mein Fehler, hab ich gelöscht.
Antwort zu 2: Hab ich gemacht, dolle wurst. Immernoch alles Müll:

Code (perl): (dl )

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

Meckerei immernoch auf STDOUT:

Code: (dl )

1
2

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

Ich wäre Dir zu tiefstem Dank verpflichtet, wenn Du mir diese kleine Situation bitte als Ganzes lauffähig zeigen würdest und nicht nur Bröckchen zuschmeißt, die mir alle nicht helfen, denn ich raff es nicht!!

Danke Dir

10 print "Hallo"
20 goto 10