Discussion :

[donny]

salut,

J'essai d'apprendre le perl
et je viens de voir les expression reguliere.
Je viens de faire ce script mais je ne comprend pas pourquoi il ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict
 
my $v = "eess x";
 
if( $v =~ m/'x'/ )
{
print "x est present";
}
else
{
print "x est absent"'
}

Merci

[Mersenne]

salut,

J'essai d'apprendre le perl
et je viens de voir les expression reguliere.
Je viens de faire ce script mais je ne comprend pas pourquoi il ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict
 
my $v = "eess x";
 
if( $v =~ m/'x'/ )
{
print "x est present";
}
else
{
print "x est absent"'
}

Merci

Je pense que pour savoir si x est présent, il ne faut pas l'entourer de guillemets dans l'expression régulière.
C'est une des particularités des expressions régulières.

M.

[donny]

meme en les enlevant j'ai cette erreur

String found where operator expected at C:\Perl\f.pl line 12, at end of line
(Missing semicolon on previous line?
Can't find string terminator "'" anywhere before EOF at C:\Perl\f.p

[djibril]

Code :

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

if( $v =~ /x/i )

i : pour ne pas tenir compte de la casse (majuscule/minuscule)

[MarneusCalgarXP]

meme en les enlevant j'ai cette erreur

C'est normal, tu n'as pas mis de ";" après ton 2° print, tu as mis une apostrophe à la place !

[donny]

quand j'enleve le my sa fonctionne et quand je le laisse j'ai un message d'erreur :

Name "main::v" used only once: possible typo at C:\... line 6.
Use of uninitialized value in pattern match (m//) at C:\line 6.
x est absent

[Arioch]

Ca marchera mieux en rajoutant un ; après ton use strict

[donny]

ouai nikel merci
donc en faite faut des point virgules de partout