11 pour tuteur perl. $nbhi = 0 ; while (!feof($fp)) { $lig = fgets($fp, 4096) ; # print $lig ; # flush() ; $chav = "sur un total d'environ" ; $lhav = strlen($chav) ; $idpd = strpos($lig,$chav) ; if ($idpd>0) { $extr = substr($lig,$idpd+$lhav,20) ; $extr = strip_tags($extr) ; $chap = "pour" ; $idpf = strpos($extr,$chap) ; $nbhi = $extr ; if ($idpf>0) { $nbhi = substr($extr,0,$idpf) ; } ; # fin si # il peut arriver qu'on ait beaucoup de résultats, comme 22 900 # et il faut l'écrire "à la française" } ; # fin si sur idpd } ; # fin de tant que fclose($fp) ; # un peu de ménage $nbhi = ereg_replace(" ","",$nbhi) ; $nbhi = ereg_replace(" ","",$nbhi) ; return $nbhi ; } ; # fin de fonction nbhits $eac = "tuteur xml" ; $ura = urlgoog("$eac") ; echo "\n" ; echo " Pour l'expression \"$eac\" Google trouve " ; echo nbhits($eac) ; echo " pages.\n" ; echo "
\n" ; echo "\n" ; echo " Vous pouvez le vérifier en cliquant " ; echo " ici\n" ; echo "
\n" ; ?>