Skip to content

Instantly share code, notes, and snippets.

@yusukebe

yusukebe/gist:166514

Created August 12, 2009 13:52
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save yusukebe/166514 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save yusukebe/166514 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
use LWP::UserAgent;
use YAML;
my $query = "isoyama";
my $ua = LWP::UserAgent->new( agent => 'YourAVPhoto::Crawler' );
my $res = $ua->get("http://www.tumblr.com/search/$query");
if ( my @urls = $res->content =~ m!url\('(http://\d+\.media\.tumblr\.com/.+\.jpg)'\)!gm ){
warn Dump @urls;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment