Discussion :

[david_m]

Bonjour,

dans mon script, j'ai deux variable $x, $y.
Je voudrais pouvoir tester la condition:

SI $y dans $x.

Je sais, avec grep, ou index, je devrais y arriver. j'ai essayé ça:

if(index($x,$y) >= 0) --> IL NE TROUVE RIEN
if (grep /$y/,$x) --> IL NE TROUVE RIEN

Bon, je dois être à coté de la plaque. Si quelqu'un peut me remettre dessus ... merci

[2Eurocents]

dans mon script, j'ai deux variable $x, $y.
Je voudrais pouvoir tester la condition:

SI $y dans $x.

Je sais, avec grep, ou index, je devrais y arriver.

En fait, il n'y a pas besoin d'utiliser grep ou index

C'est simplement le champ d'application de l'opérateur de mise en correspondance d'expressions rationnelles :

Code :

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

if ($x =~ m/$y/) { print "$x dans $y\n" }

Ca devrait aller comme ça

[Jedai]

Non, s'il s'agit de sous-chaîne et non d'expression rationnelle, il vaut mieux utiliser index, c'est à la fois plus rapide et plus sûr. Par contre je ne sais pas comment tu l'utilises, mais index marche très bien :

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict; use warnings;
 
my $x = "machin truc bidule";
my $y = "truc";
 
print "Ok\n" if index( $x, $y ) > -1;

--
Jedaï

[2Eurocents]

Non, s'il s'agit de sous-chaîne et non d'expression rationnelle, il vaut mieux utiliser index, c'est à la fois plus rapide et plus sûr. Par contre je ne sais pas comment tu l'utilises, mais index marche très bien ...

Exact !

Juste une question, david_m, sur les variables $x et $y : il n'y a pas un retour chariot qui traine à la fin de la variable recherchée ($y, ici) ?

[djibril]

Non, s'il s'agit de sous-chaîne et non d'expression rationnelle, il vaut mieux utiliser index, c'est à la fois plus rapide et plus sûr. Par contre je ne sais pas comment tu l'utilises, mais index marche très bien :

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl
use strict; use warnings;
 
my $x = "machin truc bidule";
my $y = "truc";
 
print "Ok\n" if index( $x, $y ) > -1;

--
Jedaï

encore une astuce de rapidité, c'est àrajouter dans post it optimisation, c'est toujour bien de l'avoir en tete.
allez les gars, hesitez pas à rajouter ce genre d'astuces!!
sinon on oublie et ça se perd dans les threads

[david_m]

d'abord merci pour vos réponses.

dans ma variable $y, je parse un tableau, lui-même généré à partir d'un fichie du type:

Code :

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

1
2
3
4
valeur1
valeur2
valeur3
...

le soucis, c'est que quand je fais:

Code :

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

1
2
3
while (<FIC>){
   print "ligne : $_\n";
}

il m'affiche:

Code :

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

1
2
3
4
ligne: valeur1
valeur2
valeur3
...

--> Il me le lit pas ligne par ligne !!!! il me prend tout en bloc. donc après forcément jes des soucis pour construire mon tableau. j'ai vu qu'il y a des modes différents de lecture. ça viendrait pas de là dès fois ?


[Edit]
Balises [code] et [code] ajoutées par 2Eurocents.
Merci d'y penser à l'avenir
[/Edit]

[Jedai]

Ca ressemble à un problème de variable $/ mal localisée, mais tu ne nous donnes pas assez de code pour qu'on puisse t'aider, ce que tu nous montre est correct et le problème vient sûrement du reste. Par ailleurs que signifie :

dans ma variable $y, je parse un tableau

...

--
Jedaï

[david_m]

Le problème venait en effet de ma variable $/, mal initialisée. Merci pour ton aide jet d'ail (et tous les autres)

david m.