Discussion :

[Ganondorf]

Yop

J'essai de comparer deux chaines

Code :

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

1
2
3
 
$chaine1 = test!radd@192.168.1.12
$chaine2 = test!*@*

quand je les compare via ce code

Code :

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

1
2
 
if ($chaine1 =~/$chaine2/i)

et bien ca fonctionne bien lol ...
mais !! quand je tente de comparer deux chaines du style

Code :

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

1
2
3
 
$chaine1 = test!radd@192.168.1.12
$chaine2 = *!*@*.12

pourtant $chaine1 match bien $chaine2, je pense que le soucis vient du *!*@*.12 dans $chaine2 ? mais comment corriger ca.

[Jedai]

Yop

J'essai de comparer deux chaines

Code :

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

1
2
3
 
$chaine1 = test!radd@192.168.1.12
$chaine2 = test!*@*

quand je les compare via ce code

Code :

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

1
2
 
if ($chaine1 =~/$chaine2/i)

et bien ca fonctionne bien lol ...

Non, ça ne fonctionne pas du tout, en tout cas pas comme tu voudrais que ça fonctionne... C'est un pur hasard que ça ait matché dans ce cas précis comme le montre d'ailleurs le fait que ton second exemple ne marche pas.

D'une part tu as oublié les guillemets, je vais assumer que tu as tout mis entre simples guillemets, sinon strict aurait sûrement protesté que "@*" n'était pas un tableau déclaré (tu travailles bien sous pragma "strict" hein ??) :

Code :

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

1
2
my $chaine1 = 'test!radd@192.168.1.12';
my $chaine2 = 'test!*@*'

$chaine2 signifie ceci en tant que regexp :
test #la chaîne littérale "test'
!* #0 ou plus caractères "!"
@* #0 ou plus caractères "@"

Je doute (très) fortement que ce soit ce que tu voulais... Visiblement tu confonds regexp et glob(), je te reporte à un cours d'introduction aux regexp, comme par exemple "perldoc perlrequick", "perldoc perlretut" pour de plus amples informations.

--
Jedaï

[Ganondorf]

Je pense que tu n'as pas bien comprit ce que je chercher à faire ou bien c'est moi qui n'est pas comprit ta réponse, je cherche juste a savoir si les chaines se correspondes, le fait qu'il y est des ! et des @ dans ma chaine vient du fait que les chaines que je recoi de mon serveur ce composent ainsi, pour moi les regexp été la solution à ca.

juste pour être sur que nous parlons bien de la même chose je vais t'expliquer ce que je veux faire exactement.
Le masque de connexion d'un pseudonyme quand il se connect à mon serveur est comme ceci "<pseudonyme>!<ident>@<host>" ensuite si ce pseudonyme tente de s'enregistrer je compare ce masque avec celui qui est défini dans la configuration pour qu'il puisse continuer sont identification.


Si je me suis égarré n'hesite pas à me le dire

[Jedai]

Relis mon message, les regexp sont bien la solution, mais la syntaxe que tu emploies n'est pas celle des regexp de Perl (et autres langages), plutôt celle des "glob" des shells. Je pourrais t'en corriger une, mais à long terme il vaut mieux que tu l'apprennes par toi-même, ça sert énormément de toute façon.

--
Jedaï

[Ganondorf]

Je viens de lire le perlrequick puis n'ayant toujours pas plus avancé j'ai suivi avec perlretut et c'est pareil, pourtant j'en ai testé des regexp mais je la cale !

je ne demande pas la solution mais plutot qu'ont m'aiguille sur comment procédé

[Jedai]

$chaine2 devrait plutôt être :

Code :

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

my $chaine2 = 'test!.*@.*';

Tu vois la différence ?

--
Jedaï