#!/usr/local/bin/perl
#
# Nicolas Cros - CICT - Novembre 96
# 

$chaine = ;

# Ici on veut traiter une adresse electronique,
# tous les caracteres autres que a-z, A-Z, 0-9 . _ @ - sont refuses 
#
# (en theorie les caracteres declares dans sendmail.cf sont
# les suivants . : % @ ! ^ / [ ] a-z A-Z 0-9 ) 

if ( $chaine  !~ /^[\w.\-\@]+$/) 
# on utilise \w qui remplace a-zA-Z0-9_
#            \- pour proteger le caractere - interperete en Perl
#            \@ pour proteger le caractere @ interperete en Perl
{
    printf "Un caractere n'est pas autorise dans [%s]\n",$chaine;
}
else 
{
    printf $chaine;
}

Mis à jour le 02/06/97

---

CICT
Vos commentaires sur ce serveur : www@cict.fr