in reply to Swimsuit issue
Ow ow owww! Why all the forking? Here's what I used for 2002:
And here they are for 2001, still grabbable: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"; } }
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"; } }
-- Randal L. Schwartz, Perl hacker
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: +Re: Swimsuit issue
by vladb (Vicar) on Feb 26, 2002 at 03:46 UTC | |
Re: •Re: Swimsuit issue
by elwarren (Priest) on Feb 26, 2002 at 16:14 UTC | |
•Re: •Re: Swimsuit issue
by merlyn (Sage) on Feb 19, 2003 at 22:21 UTC | |
by valdez (Monsignor) on Feb 20, 2003 at 10:13 UTC | |
by merlyn (Sage) on Feb 20, 2003 at 13:28 UTC | |
by merlyn (Sage) on Feb 16, 2004 at 18:53 UTC | |
by Intrepid (Deacon) on Feb 16, 2004 at 21:21 UTC |
In Section
Cool Uses for Perl