Discussion :

[brahim94]

Bonjour tout le monde,

J'éprouve de grande difficultés avec les expressions régulieres, j'y comprend strictement rien.

Une personne saurait-il par exemple m'expliquer sa facons de faire avec un l'exemple ci-dessous:

J'ai le string suivant dans une variable:
[08/20/2009 15:38:07.205] [Error] [3081495456-toto.c:1824] Cannot open file '/usr/manager/svr/var/logs/20090807/Data.01'

Je voudrais par exemple récupérer la chaine "20090807" et vérifier que celle-ci est bien constitué de 8 caractères.

Comment feriez vous via des expressions régulieres pour récupérer cette chaine, apparement cela devrai prendre une ligne avec cette méthode ?

[iblis]

Tu peux bien sûr préciser le contexte mais l'idée est là (match et capture) :

Code :

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

print $1 if $data =~ m{logs/(\d+)/}

Pour t'initier au maniement des expressions réguilères, regarde déjà la FAQ et perlretut, puis n'hésite pas à poser des questions.

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
# récupération du nombre
if ( $string =~ m{logs/(\d+)/} ){
	# vérification de sa taille
	if (length $1 == 8){
		print $string."\n";
	}
}
 
# on ne récupère que les nombres à 8 chiffres
if ( $string =~ m{logs/(\d{8})/} ){
	print $string."\n";
}

[nibroc]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
# récupération du nombre
if ( $string =~ m{logs/(\d+)/} ){
	# vérification de sa taille
	if (length $1 == 8){
		print $string."\n";
	}
}
 
# on ne récupère que les nombres à 8 chiffres
if ( $string =~ m{logs/(\d{8})/} ){
	print $string."\n";
}

Dans le premier cas, on récupère tous les chiffres et on vérifie qu'il y en a exactement 8.
Dans le deuxième cas, si le nombre de chiffres est supérieur ou égal à 8, on récupère les 8 premiers. (on récupère exactement 8 chiffres et peut importe ce qui suit, ça peut être n'importe quoi, même d'autres chiffres)
Nibroc.