Profesor nam je dao source code ali mi moramo ispraviti kod...
A radi se o source codu koji bi trazio na vecim search enginame ono sto mu upises komandom na ircu...
Kod mene ostale engine rade..samo Yahoo ne radi a ne znam sto?
Evo source coda
A radi se o source codu koji bi trazio na vecim search enginame ono sto mu upises komandom na ircu...
Kod mene ostale engine rade..samo Yahoo ne radi a ne znam sto?
Evo source coda
Code:
sub yahoo(){
my $inizio=0;
my $chiave=$_[0];
$chiave =~ s/ /\+/g;
$chiave =~ s/:/\%3A/g;
$chiave =~ s/\//\%2F/g;
$chiave =~ s/&/\%26/g;
$chiave =~ s/"/\%22/g;
$chiave =~ s/\\/\%5C/g;
my $pagine=14;
my @lista;
while ($inizio <= $pagine){
my $av= ($inizio * 100) +1;
my $yahoo="http://search.yahoo.com/search?p=$chiave&n=100&pstart=1&b=$av";
my $req=HTTP::Request->new(GET=>$yahoo);
my $ua=LWP::UserAgent->new();
$ua->agent('Netscape 4.78/U.S., 25-Jun-01; (c) 1995-2000');
my $response=$ua->request($req);
my $resp=$response->content;
while ($resp=~ m/<em class=yschurl>(.+?)\<\/em>/g ){
my $ok = $1;
$ok =~ s/<b>//g;
$ok =~ s/<\/b>//g;
$ok =~ s/<wbr>//g;
my @words = split /\//, $ok;
my $oks="$words[0]/";
push(@lista,$oks);
}
$inizio++;
}
return @lista;
}
sub yahoo(){
my $inizio=0;
my $chiave=$_[0];
$chiave =~ s/ /\+/g;
$chiave =~ s/:/\%3A/g;
$chiave =~ s/\//\%2F/g;
$chiave =~ s/&/\%26/g;
$chiave =~ s/"/\%22/g;
$chiave =~ s/\\/\%5C/g;
my $pagine=14;
my @lista;
while ($inizio <= $pagine){
my $av= ($inizio * 100) +1;
my $yahoo="http://search.yahoo.com/search?p=$chiave&n=100&pstart=1&b=$av";
my $req=HTTP::Request->new(GET=>$yahoo);
my $ua=LWP::UserAgent->new();
$ua->agent('Netscape 4.78/U.S., 25-Jun-01; (c) 1995-2000');
my $response=$ua->request($req);
my $resp=$response->content;
while ($resp=~ m/<em class=yschurl>(.+?)\<\/em>/g ){
my $ok = $1;
$ok =~ s/<b>//g;
$ok =~ s/<\/b>//g;
$ok =~ s/<wbr>//g;
my @words = split /\//, $ok;
my $oks="$words[0]/";
push(@lista,$oks);
}
$inizio++;
}
return @lista;
}