Discussion :

[peuf23]

Voici mon petit 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
16
17
18
19
20
 
#!/usr/bin/perl 
 
$q330_path="/Volumes/ProjectData/Corisubmod/Wdata/raw_data/extr_data/Q330/LCH0";
system ("ls $q330_path > rep");
@rep=`cat rep`;
chomp(@rep);
$nb_rep=@rep;
for ($i=0 ; $i < $nb_rep ; $i++)
{
	system ("ls $q330_path/@rep[$i]/*HH* > fil");
	@file=`cat fil`;
	chomp(@file);
	$nb_file=@file;
	$nb_file2=$nb_file/3;
	for ($j=0; $j < $nb_file ; $j++)
	{
		system("check_seed @file[$j] > ans");
	}	
}

Comme vous pouvez le voir il fait appelle à check_seed qui est un executable. Voici ce que me renvoie check_seed par exemple :

check_seed - Version 175.2004 Opened file: /Volumes/ProjectData/Corisubmod/Wdata/raw_data/extr_data/Q330/LCH0/28_02_05/LCH0.CR.HHZ..D.2005.059.125945 with recl 4096 Start of first record: LCH0 HHZ CR 28/02/2005 12:59:45.5983 Format code: 11 12 End of last record: 12/03/2005 13:00:04.6083

Et je voudrais bien récupérer les infos suivantes : 28/02/2005 12:59:45.5983 et 12/03/2005 13:00:04.6083...

Merci d'avance pour votre aide

[GLDavid]

De bonnes regexp devraient faire le jeu et tu devrais lire la FAQ sur ce sujet.

@++

[peuf23]

Le pb c'est qu'ils sont tous les deux au mm format... Tu pourrais pas me donner un peu plus d'indices...

Merci

[2Eurocents]

Le pb c'est qu'ils sont tous les deux au mm format... Tu pourrais pas me donner un peu plus d'indices...

Merci

Raison de plus !!!

S'ils sont tous les deux au même format, tu fais une mise en correspondance globale (indicateur g après le dernier / de l'ER), et comme ton motif était mémorisant (entre parenthèses), tu as tout dans les variables $1, $2, ... ou dans un tableau si tu a fais un truc du genre :

Code :

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

@tab_matches = ($chaine =~ m/(mon motif à memoriser)/g) ;

8)

[Edit]Orthographe et grammaire [/Edit]

[peuf23]

merci j'y suis arrivé...