Probléme de regexp

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:

---

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!

Citation:

---

Envoyé par moook

Code:

---

1 2 3

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

---

---

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

Code:

---

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ï

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:

---

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>; } }

---

Citation:

---

Envoyé par 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:

---

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:

---

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ï

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