Un peu de PERL ...
Résolu/Fermé
ollie314
Messages postés
145
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
26 octobre 2007
-
27 mars 2005 à 20:36
ollie314 Messages postés 145 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 26 octobre 2007 - 2 avril 2005 à 01:23
ollie314 Messages postés 145 Date d'inscription mardi 8 juin 2004 Statut Membre Dernière intervention 26 octobre 2007 - 2 avril 2005 à 01:23
A voir également:
- Un peu de PERL ...
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- Perl foreach ✓ - Forum Perl
- Perl substitution ✓ - Forum Perl
- Execution d'un fichier.txt avec perl - Forum Perl
1 réponse
Utilisateur anonyme
28 mars 2005 à 01:30
28 mars 2005 à 01:30
Bonsoir,
Oui, il y a plusieurs fautes de parenthèses déjà.
En outre les critères de recherche s'écrivent comme ceci:
if ($_ =~ m/^a/) { }
par exemple.
Pour récupérer le premier argument d'une fonction, on utilise $_[0], le second $_[1], le troisième $_[2], et ainsi de suite.
Voici ton programme corrigé:
sub bon_email { if($_[0]=~m/[a-zA-Z0-9\-_\.]{1,}@[a-zA-Z0-9\-_\.]{1,}\.[a-zA-Z]{2,}(.)*/){
#on retourne 1 si le mail est valide
return 1;
}
else {
#0 sinon
return 0;
}
}#fin de la fonction
print "saisissez votre email\n";
$mail=<STDIN>;
chomp($mail);
$res=bon_email($mail);
if ($res==1)
{
print"email_ok\n";
}
else
{
print "email non valide\n";
}
@+
Oui, il y a plusieurs fautes de parenthèses déjà.
En outre les critères de recherche s'écrivent comme ceci:
if ($_ =~ m/^a/) { }
par exemple.
Pour récupérer le premier argument d'une fonction, on utilise $_[0], le second $_[1], le troisième $_[2], et ainsi de suite.
Voici ton programme corrigé:
sub bon_email { if($_[0]=~m/[a-zA-Z0-9\-_\.]{1,}@[a-zA-Z0-9\-_\.]{1,}\.[a-zA-Z]{2,}(.)*/){
#on retourne 1 si le mail est valide
return 1;
}
else {
#0 sinon
return 0;
}
}#fin de la fonction
print "saisissez votre email\n";
$mail=<STDIN>;
chomp($mail);
$res=bon_email($mail);
if ($res==1)
{
print"email_ok\n";
}
else
{
print "email non valide\n";
}
@+
2 avril 2005 à 01:23
Merci beaucoup pour le coup de main tout marche c'est nikel !!!
@+