#!/usr/bin/perl -w # author, for better or worse: chrisb@blast.com ############# config ################ $tag='nptech'; #which tag to search for $count='45'; #number of results per page. $totalpages='88'; #how many pages to search $fulltext='fulltext.xml'; #where to store your full result set #################################### use LWP::Simple; open(FULLTXT, ">>$fulltext") || die ("ack! no file.") ; print FULLTXT "\n"; for(my $i=1; $i>=1 && $i<=$totalpages; $i++) { $pagenumber = $i; $url = 'http://del.icio.us/tag/'.$tag.'?setcount='.$count.';page='.$pagenumber; my $page = get $url; $page =~ s/<[a-zA-Z\/][^>]*>//g; #de-HTMLifyer print FULLTXT "\n"; print FULLTXT "

$url

\n"; print FULLTXT "\n"; while($page =~ m/to(.*?)\.\.\./g) #tag extractor { print FULLTXT "$1\n"; } print FULLTXT "\n"; print FULLTXT "\n"; sleep 1; } print FULLTXT ""; close(FULLTXT);