[ Napushenko @ 05.07.2007. 15:11 ] @
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 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; } |