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?

[CKLN00]

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

comme je te le disait en utilisait une expression régulière multilignes (m//x) et en utilisant (.*?\n){9}
soit pour capturer les 9 lignes qui t'intéresse une regExp du genre :
m/\n(.*?41.*?337(.*?\n){9})/x

$1 = 9 ligne avec la première contenant 41.*337

ou les ? servent à rendre paresseux l'étoile. le (.*?\n){9} sert à indiquer que tu veut 9 lignes.

[Jasmine80]

Code :

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

1
2
3
    if($ligne =~ /((?:Chlamydia_pecorum_41|Staphylococcus_aureus_339).*(?:Staphylococcus_aureus_337|Chlamydia_pecorum_41)(?:.*?\n){9})/x){
        print $ligne;
    }

J'ai essayé avec print $1 et print $ligne, cela ne fonctionne pas. De plus, je dois récupérer plusieurs fois cette combinaison.

[CKLN00]

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

Code :

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

1
2
3
    if($ligne =~ /((?:Chlamydia_pecorum_41|Staphylococcus_aureus_339).*(?:Staphylococcus_aureus_337|Chlamydia_pecorum_41)(?:.*?\n){9})/x){
        print $ligne;
    }

heeuuu à ta place j'essayais une fois sans les ?:
c'est tout ce que je peut conseiller :s !

Edit : autant pour moi j'ai fait une erreur c'est pas m//x mais m//s

[Jasmine80]

Je ne pense pas que ce soit les ?: car ils ne posaient pas de problème avec mon $index.

Code :

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

if($ligne =~ m/((Chlamydia_pecorum_c41|Staphylococcus_aureus_339).*(Staphylococcus_aureus_337|Chlamydia_pecorum_41)(.*?\n){9})/s)

Cela ne fonctionne toujours pas. Enfin, tant pis je vais garder ma première technique avec $ index car elle fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
while($ligne = <AutoDim>){         
    if($ligne =~ /(?:Chlamydia_pecorum_41|Staphylococcus_aureus_339).*(?:Staphylococcus_aureus_337|Chlamydia_pecorum_41)/){
        $index = 0;
    }
    if($index < 10){
        print $ligne;
    }
    $index ++;
}

[Jedai]

Elle est très bien ta technique avec $index pourquoi elle ne te plait pas !? En fait l'autre proposition de CKLN00 requiérerait de lire l'intégralité du fichier en mémoire (ou de faire des trucs sioux et très facile à louper) ce qui dans ta branche est sans doute peu recommandé...

--
Jedaï

[Jasmine80]

Ce n'est pas qu'elle ne me plait pas, c'est juste que je voulais savoir si il n'existe pas plus simple. Je vais garder index vu que cela fonctionne et qu'il n'y a pas mieux. Merci.