Skip to content

Instantly share code, notes, and snippets.

@aero

aero/dcinside_racinggirl_scraper

Created December 6, 2010 02:09
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aero/729723 to your computer and use it in GitHub Desktop.
Save aero/729723 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dcinside_racinggirl_scraper
# UNIX
perl -MLWP::Simple -e 'foreach my $n (227180..227196){ my @imgs = (my $t=get("http://gall.dcinside.com/list.php?id=racinggirl&no=$n")) =~ m!(http://dcimg1.dcinside.com/viewimage.php[^'"'"']+)!g; foreach (0..$#imgs) { print "Getting -> $imgs[$_]\n"; getstore($imgs[$_], $n."_".$_.".jpg") } }'
# Windows
perl -MLWP::Simple -e "foreach my $n (227180..227196){ my @imgs = (my $t=get(qq{http://gall.dcinside.com/list.php?id=racinggirl&no=$n})) =~ m!(http://dcimg1.dcinside.com/viewimage.php[^']+)!g; foreach (0..$#imgs) { print qq/Getting -> $imgs[$_]\n/; getstore($imgs[$_], $n.'_'.$_.'.jpg') } }"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment