4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use File::Copy;
use File::NCopy;
# src - pfad
# dest - pfad
# trash - pfad
my $system = 'C:/Entwicklung/Perl/projects/Testen';
my $src = $system . '/src';
my $dest = $system . '/dest';
my $trash = $system . '/trash';
my $file = File::NCopy->new('recursive' => 1);
$file->copy ($src,$dest);
4 Einträge, 1 Seite |