Dateien kopieren - #56032 (Allgemeines zu Perl)

Spider-Mann

2005-07-06 18:13

User since
2005-07-06
23 Artikel
BenutzerIn
[default_avatar]

Woher weißt du, daß ich eine Brille trage?
Ok, ich habe meinen Testcode mal so geändert:

Code: (dl )

use strict;
use warnings;
use diagnostics;
use File::Copy;

my $htmldir = "C:/wwwRoot/Stats/";

opendir (IMAGES, "Images");
foreach (readdir IMAGES) {
    unless (-e $htmldir . $_) {
        copy $_, $htmldir or die "Error in copying: $!\n";
    }
}
closedir IMAGES;

Und das ist die Meldung, die ich dann bekomme:

Code: (dl )

1
2
3

Uncaught exception from user code:
    Error in copying: 
 at test.pl line 11

Line 11 ist die copy-Zeile. Die Meldung hätte mir leider nichts gesagt.\n\n