Previous Section  < Day Day Up >  Next Section

Hack 44. Yahoo! Directory Mindshare in Google

How does link popularity compare in Yahoo!'s searchable subject index versus Google's full-text index? Find out by calculating mindshare!

Yahoo! and Google are two very different animals. Yahoo! indexes only a site's main URL, title, and description, while Google builds full-text indexes of entire sites. Surely there's some interesting cross-pollination when you combine results from the two.

This hack scrapes all the URLs in a specified subcategory of the Yahoo! directory. It then takes each URL and gets its link count from Google. Each link count provides a nice snapshot of how a particular Yahoo! category and its listed sites stack up on the popularity scale.

What's a link count? It's simply the total number of pages in Google's index that link to a specific URL.

There are a couple of ways you can use your knowledge of a subcategory's link count. If you find a subcategory whose URLs have only a few links each in Google, you may have found a subcategory that isn't getting a lot of attention from Yahoo!'s editors. Consider going elsewhere for your research. If you're a webmaster and you're considering paying to have Yahoo! add you to their directory, run this hack on the category in which you want to be listed. Are most of the links really popular? If they are, are you sure your site will stand out and get clicks? Maybe you should choose a different category.

We got this idea from a similar experiment Jon Udell ( did in 2001. He used AltaVista instead of Google; see We appreciate the inspiration, Jon!

2.26.1. The Code

You will need a Google API account (, as well as the SOAP::Lite ( and HTML::LinkExtor ( Perl modules to run this hack.

Save the code as, remembering to replace insert key here with your Google API key:

#!/usr/bin/perl -w

use strict;

use LWP::Simple;

use HTML::LinkExtor;

use SOAP::Lite;

my $google_key  = 'insert key here';

my $google_wdsl = "GoogleSearch.wsdl";

my $yahoo_dir   = shift || "/Computers_and_Internet/Data_Formats/XML_  _".


# Download the Yahoo! directory.

my $data = get("" . $yahoo_dir) or die $!;

# Create our Google object.

my $google_search = SOAP::Lite->service("file:$google_wdsl");

my %urls; # where we keep our counts and titles.

# Extract all the links and parse 'em.


sub mindshare { # for each link we find...

    my ($tag, %attr) = @_;

    # Continue on only if the tag was a link,

    # and the URL matches Yahoo!'s redirectory.

    return if $tag ne 'a';

    return unless $attr{href} =~ /;

    return unless $attr{href} =~ /\*http/;

    # Now get our real URL.

    $attr{href} =~ /\*(http.*)/; my $url = $1;

                $url =~ s/%3A/:/; # turn encoding into legits.

    # And process each URL through Google.

    my $results = $google_search->doGoogleSearch(

                        $google_key, "link:$url", 0, 1,

                        "true", "", "false", "", "", ""

                  ); # wheee, that was easy, guvner.

    $urls{$url} = $results->{estimatedTotalResultsCount};


# Now sort and display.

my @sorted_urls = sort { $urls{$b} <=> $urls{$a} } keys %urls;

foreach my $url (@sorted_urls) { print "$urls{$url}: $url\n"; }

2.26.2. Running the Hack

The hack has its only configuration—the Yahoo! directory you're interested in—passed as a single argument (in quotes) on the command line ["How to Run the Scripts" in the Preface]. If you don't pass one of your own, a default directory will be used instead.

% perl "/Entertainment/Humor/Procrastination/"

Your results show the URLs in those directories, sorted by total Google links:










2.26.3. Hacking the Hack

Yahoo! isn't the only searchable subject index out there, of course. There's also the Open Directory Project (DMOZ,, which is the product of thousands of volunteers busily cataloging and categorizing sites on the Web—the web community's Yahoo!, if you will. This hack works just as well on DMOZ as it does on Yahoo!; they're very similar in structure.

Replace the default Yahoo! directory with its DMOZ equivalent:

my $dmoz_dir = shift || "/Reference/Libraries/Library_and_Information_RETURN



You'll also need to change the download instructions:

# Download the directory.

my $data = get("" . $dmoz_dir) or die $!;

Next, replace the lines that check whether a URL should be measured for mindshare. When we were scraping Yahoo! in our original script, all directory entries were always prepended with and then the URL itself. Thus, to ensure we received a proper URL, we skipped over the link unless it matched that criteria:

return unless $attr{href} =~ /;

return unless $attr{href} =~ /\*http/;

Since DMOZ is an entirely different site, our checks for validity have to change. DMOZ doesn't modify the outgoing URL, so our previous Yahoo! checks have no relevance here. Instead, we'll make sure it's a full-blooded location (i.e., it starts with http://) and it doesn't match any of DMOZ's internal page links. Likewise, we'll ignore searches on other engines:

return unless $attr{href} =~ /^http/;

return if $attr{href} =~ /dmoz|google|altavista|lycos|yahoo|alltheweb/;

Our last change is to modify the bit of code that gets the real URL from Yahoo!'s modified version. Instead of "finding the URL within the URL":

# Now get our real URL.

$attr{href} =~ /\*(http.*)/; my $url = $1;

we simply assign the URL that HTML::LinkExtor has found:

# Now get our real URL.

my $url = $attr{href};

Can you go even further with this? Sure! You might want to search a more specialized directory, such as the FishHoo! fishing search engine (

You might want to return only the most linked-to URL from the directory, which is quite easy, by piping the results ["How to Run the Hacks" in the Preface] to another common Unix utility:

% perl | head 1

Alternatively, you might want to go ahead and grab the top 10 Google matches for the URL that has the most mindshare. To do so, add the following code to the bottom of the script:

print "\nMost popular URLs for the strongest mindshare:\n";

my $most_popular = shift @sorted_urls;

my $results = $google_search->doGoogleSearch(

                    $google_key, "$most_popular", 0, 10,

                    "true", "", "false", "", "", "" );


foreach my $element (@{$results->{resultElements}}) {

   next if $element->{URL} eq $most_popular;

   print " * $element->{URL}\n";

   print "   \"$element->{title}\"\n\n";


Then, run the script as usual (the output here uses the default hardcoded directory).

% perl

















Most popular URLs for the strongest mindshare:


   "Yahoo! Groups : radio-userland"



   "Yahoo! Groupes : radio-userland-francophone Messages : Message 76 ... "



   "Fuzzygroup :: Radio UserLand FAQ"


Kevin Hemenway and Tara Calishain

    Previous Section  < Day Day Up >  Next Section