I'd like to propose a patch to avoid looping and fetching girls when you're sure there aren't. Please, read your column on that {grin}. Many thanks to larsen for his cooperation in writing this joke.

:))) Valerio

32c32,37
<     print +mirror($url, $file), "\n";
---
>     if (mirror($url, $file) == RC_NOT_FOUND) {
>       print "not found\n";
>       last;
>     } else {
>       print "ok\n";
>     }
[download]

update: merlyn is ALWAYS right :)

No the code is deliberately continuing even when I get a 404, because some of the number sequences are not, uhm, sequential. Some of them have a 0 picture, some of them are missing a 4, and so on. No model has over 8 or 9 pix, so I guess I could crank the 15 down to 9.

Hey, what's the cost of 10 additional 404 probes per model, anyway? It's a fast probe.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

use strict;
$|++;

use LWP::Simple;

my @models = qw(
ana
angela
bridget
carolyn
elsa
fernanda
frankie
jessica
jessicaw
marisa
may
melissa
molly
noemie
petra
veronica
yamila
);

# http://s.a.cnn.net/si/features/2004_swimsuit/images/gallery/popup/ma
+y_03.jpg

for my $model (@models) {
  for my $id (0..15) {
    my $url = sprintf "http://s.a.cnn.net/si/features/2004_swimsuit/" 
+.
      "images/gallery/popup/%s_%02d.jpg", $model, $id;
    my $file = "$model-$id.jpg";
    print "$url => $file: ";
    print +mirror($url, $file), "\n";
  }
}
[download]

When this script got mentioned in the chatterbox today, a bunch of us Monks were on it like ants on jello. In order to even out the server requests I thought a randomizing rendition of the script might help. Subjectively it does seem my fetches (over dialup connection) ARE going a little faster with it. Thus, this:

---

#---------------------------------------------------------------------
+-
# Based on perl code d/l from Perlmonks node: 329407
# View Original At:
#     http://www.perlmonks.org/?node=329407&displaytype=displaycode
#---------------------------------------------------------------------
+-

use strict;
$|++;

use LWP::Simple;

my($file,$url,%potenpics);
my @models = qw(
 ana angela bridget carolyn elsa fernanda
  frankie jessica jessicaw marisa may melissa
 molly noemie petra veronica yamila
);

for my $model (@models) {
  for my $id (0 .. 15)   {
      $potenpics{"$model-$id.jpg"} =
      sprintf "http://s.a.cnn.net/si/features/2004_swimsuit/" .
              "images/gallery/popup/%s_%02d.jpg", $model, $id;
  }
}

while (($file,$url) = each %potenpics)
{
    print "$url => $file: ";
    unless (-e $file and -s _) { print +mirror($url, $file), "\n" }
    else                       { print "skipped, already exists\n"}
}
[download]

---

    Soren A / somian / perlspinr / Intrepid
P.S. Don't forget: I am expecting all the people the people who say I am posting to Perlmonks for the XP to automatically downvote this posting w/o explanation, thanks.

-- 
Try my n.y.p.m.blue Perl Monks CSS Theme
(edit "On-Site CSS Markup" on the User Settings node)