#!/usr/bin/perl use Digest::MD5 qw(md5 md5_hex md5_base64); use WWW::Mechanize; use URI::Escape; $| = 1; my $mech = new WWW::Mechanize(); # get results from google print "Searching $ARGV[0] on google... "; $mech->get('http://www.google.com'); $res = $mech->submit_form(fields => {q => $ARGV[0]}); die "Probs contacting google\n" unless $res->is_success(); print "done.\n"; # parse results from google; my $content = $mech->content(); while ($content =~ /<a class=l href="(.*?)">/gsi){ print "Checking matches of $1 on del.icio.us...\n"; # get scraped url from delicious my $url = md5_hex($1); print "***$url***\n"; my $res = $mech->get("http://del.icio.us/rss/url/$url"); die "Could not find url" unless $res->is_success(); my $del_cont = $mech->content(); my %tags; my %vals; while ($del_cont =~ /<taxo:topics>(.*?)<\/taxo:topics>/gsi){ my $fuffa = $1; while ($fuffa =~ /\/tag\/(.*?)"/gi){ $tags{$1}++; } } my $key; foreach $key (keys %tags){ $vals{$tags{$key}} .= uri_unescape($key)." "; } foreach $key (sort {$b <=> $a} keys %vals){ print "$key -> $vals{$key}\n"; } print "\n"; }