cgi en perl

Recherche :

Dernière réponse
Sujet : cgi en perl
Plissken	# 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

Dernière réponse

Sujet : cgi en perl

Plissken

# 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

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

Plissken

under a écrit a écrit :

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

k666

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 :sweat: :gun:
eske kelkun sait? :cry:

under

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