Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

41 lines (30 sloc) 0.728 kB
use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;
my $m = WWW::Mechanize->new;
chdir '/Users/david/Pictures/models/';
my $i = 1;
while(1) {
print "= page $i\n";
my $url = "$i/";
my @links = $m->find_all_links(
url_abs_regex => qr!^$!,
last unless @links;
for my $l (@links) {
my $pic = $m->find_image(url_abs_regex => qr!1920x1200\-\d+\.jpg$!)->url;
my($file) = reverse split(/\//, $pic);
print "getting... $pic... ";
if(-e $file) {
print "already there!\n";
} else {
`wget --quiet -nc $pic` unless -f $file;
print " done!\n";
Jump to Line
Something went wrong with that request. Please try again.