PDA

Visualizza la versione completa : un piccolo aiuto per search engine in perl


Lino80
19-02-2007, 14:30
my $query="www.google.com/search?hl=en&ie=UTF-8&q=";
$query.=$str[(rand(scalar(@str)))];
$query.="&num=$n&start=$s";
my @lst=();
my $page = http_query($query);
while ($page =~ m/<a class=l href=\"?http:\/\/([^>\"]+)\"?>/g){
if ($1 !~ m/google|cache|translate/){
push (@lst,$1);
}
}
return (@lst);
}


salve, così com è e con queste veriabili non mi cerca nulla...
se lo modifico così:



my $query="www.google.com/search?hl=en&ie=UTF-8&q=".str_replace("%20","+",urlencode($querystring[$A])).$a;
$query.=$str_replace[(rand(scalar(@str)))];
$query.="&filter=0&num=100&meta=$n&start=$s";
my @lst=();
my $page = http_query($query);
while ($page =~ m/<a class=l href=\"?http:\/\/([^>\"]+)\"?>/g){
if ($1 !~ m/google|cache|translate/){
push (@lst,$1);
}
}
return (@lst);
}


dite che può andare? l unica cosa che non penso vada bene è l uso di queste variabili che poi non trova... : ($querystring[$A])).$a

chi mi da una mano a capire perchè non cerca nulla?

grazie

Lino80
21-02-2007, 13:57
up..........

Loading