Discussion :

[Jasmine80]

J'aimerais récupérer la ligne de mon match ainsi que les 8 lignes suivantes.

Code :

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

1
2
3
4
5
6
7
8
9
while($ligne = <AutoDim>){
    if($ligne =~ /41.*337/){
        $index = 0;
    }
    if($index < 9){
        print $ligne;
    }
    $index ++;
}

Y aurait-il une meilleure façon de procéder en utilisant $. ou autre?


Merci,

[CKLN00]

et une regExp genre
m/41.*337(.*\n){9}/x
ça peut pas fonctionner ?

[Jasmine80]

non, cela ne fonctionne pas

Code :

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

if($ligne =~ /(Chlamydia_pecorum_41|Staphylococcus_aureus_339).*(Staphylococcus_aureus_337|Chlamydia_pecorum_41)/)

Comment puis-je faire mes 'ou' sans parenthèses (car je ne dois pas récupérer $1 ni $2 mais toute la ligne)? Si j'utilise les crochets et que j'espace mes 2 solutions, l'espace sera une des possibilité du match. Si je ne mets que la barre (pipe |), les groupes de possibilités ne seront pas corrects.


Merci pour ton aide,

[CKLN00]

heeeuuu j'ai pas tout saisi xD !

tu n'arrive pas à determiner un bon pathern ?
oublit pas que tu peut imbriquer des groupe de () les unes dans les autres
exmple
/(((ceci) (est)) ((un) (match) (patern)))/

$1 = ceci est un match patern
$2 = ceci est
$3 = ceci
$4 = est
$5 = un match patern
$6 = un
$7 = match
$8 = patern

[Jasmine80]

Non, je n'ai pas oublié mais c'est juste que je place des parenthèses sans avoir besoin de récupérer leur contenu vu que je garde $ligne en entier.

[djibril]

pour que perl ne capture pas ce qui est entre parenthèse, on place ?: en début de parenthèse.
Ex :

Code :

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

1
2
3
my $phrase = "bonjour jasmine";
my ($nom) = $phrase =~ m{^(?:bonjour|bonsoir)\s+(\w+)}i;
print "$nom\n";

[Jasmine80]

Merci Djibril, je vais utiliser ?:


Mais il me reste toujours la question du premier post : y aurait-il une meilleure façon de procéder en utilisant $. ou autre?