Yeah, the new Sport Illustrated swimsuit issue is out, get your pics while they are hot.
Here is a small script for you, will run fine on any *nix system with wget installed.
#!/usr/bin/perl -w my @names = qw (ana_beatriz audrey bridget chandra ehrinn elsa heidi isabeli josie melissa molly petra shakara vanessa veronica yamila); my $base_url = qq(http://i.cnn.net/si/features/2002/swimsuit/images/ga +llery/); my $suffix = qq(/lg/); my $ext = qq(.jpg); for my $name (@names) { for (1..10) { `wget $base_url$name$suffix$_$ext`; `mv $_$ext $name$_$ext`; } }
enjoy!
|
---|
Replies are listed 'Best First'. | |
---|---|
•Re: Swimsuit issue
by merlyn (Sage) on Feb 26, 2002 at 01:24 UTC | |
by vladb (Vicar) on Feb 26, 2002 at 03:46 UTC | |
by elwarren (Priest) on Feb 26, 2002 at 16:14 UTC | |
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 | |
Re: Swimsuit issue
by illsorted (Scribe) on Feb 27, 2002 at 01:20 UTC | |
Re: Swimsuit issue
by carthag (Scribe) on Apr 04, 2002 at 16:19 UTC | |
Re: Swimsuit issue
by torin (Sexton) on Apr 04, 2002 at 19:54 UTC |
Back to
Cool Uses for Perl