bin/pagerank - Google's "Pagerank" abfragen
Beitrag von Uwe am 04.12.2008 um 22:42 Uhr | 0 Kommentare
Ich habe mir eine neue Serie einfallen lassen: Ich stelle ein paar kleine Tools aus meinem bin-Verzeichnis vor. (Für die Windows-Nutzer: Das Verzeichnis "bin" enthält unter Linux Skripte und ausführbare Programme.)
Heute ist "pagerank" dran, das nächste mal wird "make-index" folgen...
#!/usr/bin/perl use strict; use warnings; use WWW::Google::PageRank; die "Usage: $0 http://..." unless @ARGV == 1; my $pr = WWW::Google::PageRank->new; print scalar($pr->get($ARGV[0]))."\n";
Download pagerank.pl
Die Hauptarbeit erledigt das CPAN-Modul WWW::Google::PageRank. Das Skript macht nichts weiter, als dem Modul die URL zu übergeben. "$0" enthält den Namen des Programms ("pagerank" bzw. "pagerank.pl"). Dies läßt sich mit "perldoc perlvar" nachschlagen.
Die Verwendung ist denkbar einfach:
> pagerank http://www.perl-uwe.de/ 3
Der Wert des Pagerank schwankt zwischen 0 und 10.
> pagerank http://www.google.com/ 10
Ist eine Seite nicht im Such-Index enthalten, erscheint folgende Ausgabe:
> pagerank http://www.root-server-blog.de/ Use of uninitialized value in concatenation (.) or string at pagerank line 12.
Dies könnte man abfangen, indem man prüft, ob der Rückgabewert von "$pr->get" "defined" ist:
my $ret = $pr->get($ARGV[0]); if (defined $ret) { print "$ret\n"; } else { print "Seite nicht im Such-Index.\n"; }
