alors je dois reprendre un script perl,et y'a 3 lignes que je comprends pa du tout !! kelk'un pour l'expliquer :  
 
if ($ENV{'HTTP_REFERER'}) {
   foreach $ref (@http_ref) {
  if ($ENV{'HTTP_REFERER'} =~ m#.*?://.*?$ref/.*#i)
        {
          ...
        }
    }
}
 
en sachant que $ref est une variable locale et http_ref=qw(www.domain.com   xxx.xxx.xxx.xxx)    euhh xxx.xxx.xxx.xxx c l'ip !
 et derbier truc ...ca veut dire quoi le qw(...) ?
merci

tu sais déjà ce que c le http_referrer?
c la page d'ou tu viens juste avant....
et la je crois (paske g aucune idée de perl)
qu'il checke si t'es dans un répertoire ou si c un page par défaut suite à un nom de domaine???? ou truc du genre?????
 
bin en fait je comprends quedalle      
eske kelkun sait?

# salut !
 
if ($ENV{'HTTP_REFERER'}) {
 
# variable d'environnement
# site precedemment visite
 
   foreach $ref (@http_ref) {
 
# on boucle sur chaque entree ($ref) de la liste @http_ref
 
  if ($ENV{'HTTP_REFERER'} =~ m#.*?://.*?$ref/.*#i)
 
# expression reguliere
# la, on cherche a savoir si le site precedemment visite
# (nom de domaine) fait
# partie de notre liste en ignorant la casse
 
# qw -> permet de creer une liste a partir d'une chaine de
# caractere en utilisant l'espace comme separateur
 
# ++
# david