Bonjour,


Je cherche une méthode pour pouvoir transférer des fichiers qui correspondent à une expression régulière en utilisant le module Net::SCP.

Ci-dessous le code déjà existant, à partir de ce module je peux en théorie transférer un fichier ou tout un dossier en fonction du chemin que je donne à la variable $source. Je ne vois pas où insérer ni comment utiliser une regexp dans ce code...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use Net::SCP;
my $source = "/home/source";
my $destination = "/home/dest";
my $scp;
 
scp($source, $destination);
iscp($source, $destination);
 
$scp = Net::SCP->new("IP");
$scp->login("administrateur");
$scp->cwd("/test");
$scp->size("$source");
$scp->put("$source") or die $scp->{errstr};
$scp->quit;
Il faut donc que j'envoie tous les fichiers qui sont dans /home/source et qui correspondent à une regexp (peu importe la regexp) vers /home/dest mais je ne vois pas comment faire une comparaison dans mon code là...

Merci d'avance.