1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| #!/usr/local/bin/perl
$aa="C:\\a";
$bb="C:\\b";
&sauver;
sub sauver
{
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
my $repertoire1 = "$aa";
my $repertoire2 = "$bb";
dircopy($repertoire1,$repertoire2) or die("Impossible de copier $repertoire1 $!");
}
#--------------------------------------------------------------------------------
&sauver;
sub sauver
{
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);
my $repertoire1 = "C:\\a";
my $repertoire2 = "C:\\b";
dircopy($repertoire1,$repertoire2) or die("Impossible de copier $repertoire1 $!");
} |