use strict;
$|++;

use LWP::Simple;

my @models = qw(
ana_beatriz
audrey
bridget
chandra
ehrinn
elsa
heidi
isabeli
josie
melissa
molly
petra
shakara
vanessa
veronica
yamila
);

for my $model (@models) {
  for my $id (1..15) {
    my $url = sprintf "http://i.cnn.net/si/features/2002/swimsuit/imag
+es/".
      "gallery/%s/lg/%d.jpg", $model, $id;
    my $file = "$model-$id.jpg";
    print "$url => $file: ";
    print +mirror($url, $file), "\n";
  }
}
[download]

use strict;
$|++;

use LWP::Simple;

my @models = qw(
amy
aurelie
daniela
elsa
fernanda
heidi
josie
lujan
michelle
molly
noemie
shakara
shirley
veronica
yamila
);

for my $model (@models) {
  for my $id (1..9) {
    my $url = sprintf "http://sportsillustrated.cnn.com/features/2001/
+swimsuit/gallery/%s/%s_%d_lg.jpg",
      $model, $model, $id;
    my $file = "$model-$id.jpg";
    print "$url => $file: ";
    print +mirror($url, $file), "\n";
  }
}
[download]

-- Randal L. Schwartz, Perl hacker

Don't really know why, but I found this piece of Perl code very amusing:

for my $model (@models) {
   # do stuff...
}
[download]

Don't take it as a vulgar comment though ;-)



"There is no system but GNU, and Linux is one of its kernels." -- Confession of Faith

Bonus points: clicking on "dl code" and hitting "open from here" will do the work of downloading all them for you.

I just meant to open the script in my editor, really :-)

And here it is for 2003:

use strict;
$|++;

use LWP::Simple;

my @models = qw(
may
ana_beatriz
yamila
isabeli
bridget
melissa
noemie
juliana
marisa
petra
sarah
daniela
audrey
molly
jessica
);

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

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

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 :)

And for 2004, only a few minor tweaks needed:

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]

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

---

update: check out the 2005 edition as well.

curl -O "http://i.cnn.net/si/features/2002/swimsuit/images/gallery/{an
+a_beatriz,audrey,bridget,chandra,ehrinn,elsa,heidi,isabeli,josie,meli
+ssa,molly,petra,shakara,vanessa,veronica,yamila}lg[1-10].jpg"
[download]

curl "http://sportsillustrated.cnn.com/features/2002/swimsuit/images/g
+allery/{ana_beatriz,audrey,bridget,chandra,ehrinn,elsa,heidi,isabeli,
+josie,melissa,molly,petra,shakara,vanessa,veronica,yamila}/lg/[1-10].
+jpg" -o #1_#2.jpg
[download]