Discussion :

[moook]

Bonjour,

Je me prend la tête depuis un petit moment sur une regexp qui ne veut pas fonctionner, je veux récupérer toutes les chaines commençant par "TotoLog" suivi d'une chaine de 11 caractére (chiffres et "_") et de l'extension ".gz";
ex: "TotoLog_20070411_1.gz"

j'ai procédé comme ceci:

Code :

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

1
2
3
 
if(<DIR> =~ /^TotoLog[0-9_]{11}\.gz/){
}

mais seul les fichiers se terminant par "titi.gz" s'affichent
ex: "TotoLog_20070411_1.titi.gz"

Grand merci à ceux qui peuvent un peu m'aider!

[Jedai]

Code :

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

1
2
3
 
if(<DIR> =~ /^TotoLog[0-9_]{11}\.gz/){
}

Syntaxe douteuse... tu veux sûrement dire :

Code :

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

1
2
3
4
5
while( my $filename = readdir(DIR) ) {
  if($filename =~ /^TotoLog[0-9_]{11}\.gz/){
    # traitement
  }
}

A moins qu'il ne nous manque beaucoup de contexte...

--
Jedaï

[moook]

Salut Jedai et merci de ta réponse,

Il manque peut être un peu de contexte en effet, je liste le contenu de mes répertoires avec un ls directement à partir de la connexion SSH.

Code :

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

1
2
3
4
5
6
7
8
 
 
open(DIR,"ssh user\@host.net ls /path/*/*/|");
while(<DIR>){
        if(<DIR> =~ /^TotoLog[0-9_]{11}\.gz/){#/^TotoLog_[0-9_]{10}\.gz/) {
                my $file = <DIR>;
        }
}

[Jedai]

Salut Jedai et merci de ta réponse,

Il manque peut être un peu de contexte en effet, je liste le contenu de mes répertoires avec un ls directement à partir de la connexion SSH.

Code :

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

1
2
3
4
5
6
7
8
 
 
open(DIR,"ssh user\@host.net ls /path/*/*/|");
while(<DIR>){
        if(<DIR> =~ /^TotoLog[0-9_]{11}\.gz/){#/^TotoLog_[0-9_]{10}\.gz/) {
                my $file = <DIR>;
        }
}

Le <DIR> dans le if est tout de même une erreur... A chaque fois que tu écris <DIR> tu fais une lecture, donc là tu fais trois lecture par itération et tu n'en teste qu'une seule, en plus tu ne retiens même pas ce que tu as lu et testé. Il faut faire une seule lecture par itération et stocker le résultat pour les tests et manipulations suivantes :

Code :

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

1
2
3
4
5
6
7
8
open my($dir_content), '-|', 'ssh user@host.net ls /path/*/*/'
    or die "Can't open pipe from ssh : $!\n";
 
while( my $filename = <$dir_content> ) {
    if( $filename =~ m/^TotoLog[0-9_]{11}\.gz/ ) {
        # traitement
    }
}

--
Jedaï

[moook]

C'est ok,
merci de ton aide ;-)