Discussion :

[stansoad0108]

Bonjour à tous,

A l'aide d'un parser, j'ai dois récupérer du texte. Cependant mon parser me ressort 2 textes au lieu d'un seul (dans une seule variable). En faite je n'arrive pas à trouver les bonnes délimitations dans mes balises avec des expressions régulières.
Voici une partie du Code Source.

Code :

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

1
2
3
4
5
6
7
8
9
   <th>GP mRNA Boundary<a href="#disclaimer" class="disclaimerLink">&dagger;</a>:</th>
            <td>chr4 : 160269425 - 164059535</td>
 
          </tr>
          <tr>
            <th>GP Gene Boundary<a href="#disclaimer" class="disclaimerLink">&dagger;</a>:</th>
            <td>chr3 : 154025426 - 154041535
 
            </td>

Je voudrais récupérer seulement le texte : chr3 : 154025426 - 154041535 (le 2°)
L'autre texte qui apparaît est : chr4 : 160269425 - 164059535
J'ai remarqué qu'il y a des sauts de ligne. J'ai utilisé ça dans mes regex pour les différencier mais il m'affiche les 2 quand même !!

Bout de code se trouvant dans la subroutine text de mon parser.

Code :

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

1
2
3
4
# Text for GP Gene Boundary
			if ($flag == 7 && ($text =~ /^(chr[0-9]+) : ([0-9]+) - ([0-9]+)(\s)*$/)){
				print data_out "GP Gene Boundary : $1 : $2 - $3\n\n";
			}

Merci pour vos commentaires

[Jasmine80]

Coucou,

\d équivaut à [0-9]

Donc, tu ne veux que les valeurs où le dernier nombre n'est pas suivi d'une balise fermante ... où y a-t'il autre chose comme critère de sélection?

essaie

Code :

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

$text =~ /(chr\d+) : (\d+) - (\d+)\b/

Mais si

Code :

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

$text =~ /^(chr[0-9]+) : ([0-9]+) - ([0-9]+)(\s)*$/

récupère tes deux lignes, c'est qu'il ne voit pas les balises ... Je suis un peu perdue

[stansoad0108]

En faite, en exécutant plusieurs possibilités, ça fonctionne avec ceci :

Code :

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

1
2
3
4
# Text for GP Gene Boundary
			if ($flag == 7 && ($text =~ /^(chr[0-9]+) : ([0-9]+) - ([0-9]+)\s/)){
				print data_out "GP Gene Boundary : $1 : $2 - $3\n\n";
			}

Je devais enlever les parenthèses autour de \s et le $ pour fin de ligne !!

Je vais aussi essayer ta technique...Je te dirai si cela fonctionne !!
Merci quand même !

[Jasmine80]

oui, cela fonctionne aussi chez moi

Code :

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

($text =~ /(chr\d+) : (\d+) - (\d+)\s+/)

Pour les parenthèses

Code :

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

if (($flag == 7) && ($text =~ /^(chr[0-9]+) : ([0-9]+) - ([0-9]+)\s/))

[stansoad0108]

Ta suggestion ne fonctionne pas !! a cause du "\b" que tu as rajouté à la fin de l'exp reg.
Mais merci quand même pour tes conseils

++

[Jasmine80]

Ca va? le problème est résolu?

[stansoad0108]

Ouep !!