Discussion :

[Katachana]

Bonjour,

Je cherche a vérifier qu'un chaine de caractères a bien la forme que je souhaite :

mot:mot1@mot3:mot4

Je dois vérifier qu'entre les séparateurs ":" et "@" il y a bien une chaine de caractère selon la forme ci-dessus.

Quelqu'un aurait une piste pour un test d'existence dans cet esprit ?

Merci d'avance!

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use strict;
use warnings;
 
my $Phrase = 'mot:mot1@mot3:mot4';
 
if($Phrase =~ /\w+:\w+@\w+:\w+/)
{
        print "Tous les mots ne contiennent que des caractères alaphanumériques\n";
}
 
if($Phrase =~ /:\w+@/)
{
 
        print "Le mot1 ne contient que des caractères alaphanumériques\n";
}

\w signifie des caractères alphanumériques ou l'underscore
Si tu n'as que des lettres tu peux utiliser /[A-Z]+/i, cela recherchera des lettres et le i rendra insensible à la case.
Tu peux regarder dans la documentation de ce site ou sur perldoc
http://perldoc.perl.org/perlre.html





Jasmine,

[Katachana]

Merci beaucoup pour ton aide