Discussion :

[darude94]

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.

[BSans]

Il faudrait dans un premier temps récupérer l'ensemble des fichier du répertoire source, les placer éventuellement dans un tableau, et itérer en testant que ça corresponde à ta regex.

En pseudo-code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
@files = ls('/home/blah');
foreach my $file (@files) {
    if ($file =~ /<ma_regex>/) {
        scp ...
    }
}

[darude94]

Merci, je tâtonne un peu et (re)découvre les choses pas évident!

J'ai fait une boucle sur les fichiers qui sont dans le répertoire concerné (grâce au code de djibril, merci au passage) http://perl.developpez.com/sources/?...ListerFichiers puis appelé une fonction qui va envoyer les fichiers en SCP.

Merci