desktopgirls_downloader.pl

use strict;
use warnings;

our $rootdir = "desktopgirls"; #"desktopstars";
our $picsubdir = "photos-dg"; #"photos-desktopstars";

mkdir("$rootdir"); mkdir("$rootdir/pages"); mkdir("$rootdir/pics");

for my $i (1..10000) {
    my $zi = sprintf("%05d", $i);
    my $page_fname = "$rootdir/pages/$zi.html";
    unless (-e "$page_fname") {
        if (system("wget http://www.$rootdir.com/display.asp?photo_id=$i -O $page_fname") != 0) {
            open(my $fh, ">$page_fname");
            close $fh;
        }
    }

    open (my $fpage, "<$page_fname") or die;
    while (<$fpage>) {
        next unless /src="(http:\/\/www\.$rootdir\.com\/$picsubdir\/(.+?))"/;
        my $link = $1;
        my $fname = "$rootdir/pics/$2";
        unless (-e $fname) {
            system("wget $link -O $fname") == 0 or warn "Pic not found $link.";
        }
    }
    close $fpage;
}