WWW::Google::PageRank von Yuri Karaban ermittelt den Google Pagerank für Websites.
Pagerank ermitteln: get()
Die Methode get() liefert im skalaren Kontext den Pagerank, im Listenkontext den Pagerank und zusätzlich ein HTTP::Response Objekt zum Debuggen zurück.
Beispiel: get() im skalaren Kontext
#!/usr/bin/perl use strict; use warnings; use WWW::Google::PageRank; my $pr = WWW::Google::PageRank->new( host => 'toolbarqueries.google.de' ); my @urls = qw! http://perl-howto.de http://yahoo.de http://web.de !; foreach my $url (@urls) { print "URL: $url ", scalar( $pr->get($url) ), "\n"; }
Das Programm liefert folgende Ausgabe:
URL: http://perl-howto.de 4 URL: http://yahoo.de 8 URL: http://web.de 7
Beispiel: get() im Listenkontext
#!/usr/bin/perl use strict; use warnings; use WWW::Google::PageRank; my $pr = WWW::Google::PageRank->new( host => 'toolbarqueries.google.de' ) or die $!; my @urls = qw! http://perl-howto.de http://yahoo.de http://web.de http://example.tld !; # Debug foreach my $url (@urls) { print "URL: $url "; my ( $pagerank, $response ) = $pr->get($url); if ( defined $pagerank ) { print "PageRank: $pagerank\n"; } else { print "Fehler: ", $response->status_line, "\n"; warn $response->as_string, "\n"; } }
Das Programm liefert folgende Ausgabe (die lange XML-Ausgabe des as_string() habe ich weggelassen):
URL: http://perl-howto.de PageRank: 4 URL: http://yahoo.de PageRank: 8 URL: http://web.de PageRank: 7 URL: http://example.tld Fehler: 403 Forbidden
Siehe auch:
- WWW::Google::PageRank - Query google pagerank of page
- Perl-Uwe.com: Day 5: Check your Google PageRank with WWW::Google::PageRank
- LWP::UserAgent - Web user agent class
- HTTP::Response - HTTP style response message
- Perldoc - List value constructors
- AnyEvent::Google::PageRank - Non-blocking wrapper for WWW::Google::PageRank
- POE::Component::WWW::Google::PageRank - A non-blocking wrapper for WWW::Google::PageRank
Jetzt kommentieren