Bonjour à tous,
 
Sous Linux, j'aimerai depuis mon script perl copier des fichiers qui se trouvent dans un répertoire X vers un autre répertoire Y.
 
Exemple sous Linux: cp /chemin/vers/origine/* /chemin/vers/destination/
 
Merci d'avance pour vos réponses

Bonjour,
Ceci fait une copie récursive, et vous conviendra peut être.

#!/usr/bin/env perl
 
use strict;
use warnings;
use autodie;
 
my $sourcedir = '/chemin/vers/origine';
my $targetdir = '/chemin/vers/destination';
 
use File::Copy::Recursive qw(dircopy);
dircopy($sourcedir, $targetdir);

On peut jouer sur le niveau de récursivité avec $File::Copy::Recursive::MaxDepth
 
 
A+,