#!/usr/local/bin/perl $datapath = "queries.txt"; $| = 1; use LWP::Simple; read(STDIN, $in, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $in); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $form{$name} = $value; } if ($form{'action'} eq "count") { &count; } else { &main; } sub main { print "Content-type: text/html\n\n"; print <<"(END ERROR HTML)"; ABC Référencement (END ERROR HTML) print <<"(END ERROR HTML)"; (END ERROR HTML) print "\n\n"; print "\n"; print <<"(END ERROR HTML)";
 
 
 
   

L’analyseur de position permet de localiser une URL dans les 100 premiers résultats fournis par un outil de recherche selon un ou plusieurs mots clés.

Utilisation :
Dans le champs URL tapez l’URL que vous voulez localiser.

Exemple : www.abc-referencement.com
Dans le champs MOTS CLES taper la liste des mots clés qui seront soumis un à un aux outils de recherche sélectionnés.
Exemple : referencement ; abc-referencement ; Web Marketing

Conseils :
Ecourtez la liste de mots de préférence ne pas dépasser 10 mots clés.
Sélectionnez seulement les outils qui vous intéressent.
Vous pouvez augmentez le nombre de mots clés et réduire le nombre d’outils ou inversement pour avoir une réponse rapide.

Temps moyen de réponse : 6 secondes/outil/mot clé.
Exemple : pour 3 mots clés et 6 outils le temps moyens d’attente sera de 6 x 6 x 3 = 108 s. Ceci est une estimation du temps de réponse qui peut être plus moins long suivant l’état du serveur et du réseau.

(END ERROR HTML) print <<"(END ERROR HTML)";
\n"; print "
http://
Choix des outils: (END ERROR HTML) open(FILE,"$datapath"); @lines = ; close(FILE); for ($i = 0; $i <= $#lines; $i++) { my @stuff = split(/\@/,$lines[$i]); print "\n"; print "$stuff[0]
\n"; } print "
\n"; print "
\n"; } print <<"(END ERROR HTML)";
   
Premier pas
Or
Diamant
   
Analyse et Expertise
Stratégie et Mise en œuvre
Résultats et suivie
   
24PM
CVFM
Sos Domaines
w3ping

   
Contact
Emploi
Plan du site
FAQ
Home

Cherchez !!! noms de domaine dans le monde

www.

(END ERROR HTML) print ""; exit; sub count { print <<"(END ERROR HTML)"; ABC Référencement (END ERROR HTML) print <<"(END ERROR HTML)";
 
 
 
     


Access To Ebusiness

Imaghreb.com

 

(END ERROR HTML) print "Compteur de pages indexées:

\n"; $url=&parse($form{'url'}); print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; open(FILE,"$datapath"); @engines = ; close(FILE); foreach $engine(@engines){ (my $name,my $link,my $query,my $first,my $last, my $middle)=split(/\@/, $engine); if ($form{"$name"} eq "") {next;} quotemeta($first); quotemeta($last); $query =~ s/\[QUERY\]/$url/ig; my $page=get($query); if ($page eq "") { $found="ERROR";} else { (my $null,$page)=split(m/$first/ig,$page); ($page,$null)=split(m/$last/ig,$page); #enlève to les caractères qui gènent $page=~s/[a-z:)]//ig; $page=~s/<*>//ig; $found=$page; if ($found==''){ $found='0';} } print "\n"; print "\n"; print "\n"; print "\n"; } print "
   $url      Nombre de pages   
$name$found
"; print <<"(END ERROR HTML)";
 
   
Premier pas
Or
Diamant
   
Analyse et Expertise
Stratégie et Mise en œuvre
Résultats et suivie
   
24PM
CVFM
Sos Domaines
w3ping

   
Contact
Emploi
Plan du site
FAQ
Home

Cherchez !!! noms de domaine dans le monde

www.

(END ERROR HTML) print <<"(END ERROR HTML)"; (END ERROR HTML) exit; } sub parse { my $var = shift(@_); $var =~ tr/+/ /; $var =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; return $var; }