Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Radimo jedan projekat za search engine preko irc-a

[es] :: Perl :: Radimo jedan projekat za search engine preko irc-a

[ Pregleda: 2948 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Napushenko

Član broj: 122151
Poruke: 172
62.162.164.*



Profil

icon Radimo jedan projekat za search engine preko irc-a05.07.2007. u 15:11 - pre 203 meseci
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;
}

 
Odgovor na temu

[es] :: Perl :: Radimo jedan projekat za search engine preko irc-a

[ Pregleda: 2948 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.