Opened by Gast at 2006-05-19 16:58
Hallo,
ich schreibe derzeit einen Copyjob. Ich muss ein Verzeichnis rekursiv kopieren.
Bisher gehe ich das ganze folgender Maßen an:
Ich benutze das oben genannte modul weil es perfekt scheint für meine Zwecke. (
File::Copy::recursive)
Jedoche bekomme ich bei start des Programmes folgende ausgabe:
C:/Entwicklung/Perl/projects/Testen/src and C:/Entwicklung/Perl/projects/Testen/dest are identical at copy.pl
line 17
Hoffe mir kann jemand helfen. Danke im voraus. Micha
ich schreibe derzeit einen Copyjob. Ich muss ein Verzeichnis rekursiv kopieren.
Bisher gehe ich das ganze folgender Maßen an:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use File::Copy;
use File::Copy::Recursive qw(dircopy);
# src - pfad
# dest - pfad
# trash - pfad
my $system = 'C:/Entwicklung/Perl/projects/Testen';
my $src = $system . '/src';
my $src = 'C:/Drv/A/1';
my $dest = $system . '/dest';
my $trash = $system . '/trash';
&dircopy($src, $dest) or die $!;
Ich benutze das oben genannte modul weil es perfekt scheint für meine Zwecke. (
File::Copy::recursive)Jedoche bekomme ich bei start des Programmes folgende ausgabe:
C:/Entwicklung/Perl/projects/Testen/src and C:/Entwicklung/Perl/projects/Testen/dest are identical at copy.pl
line 17
Hoffe mir kann jemand helfen. Danke im voraus. Micha