note
pg
<p>Looks like there are only 48 images there, and the following code should grab all of them for you.</p>
<code>
use LWP::UserAgent;
use strict;
use warnings;
my $ua = LWP::UserAgent->new();
for my $index (0 .. 47, 3200) {
print "downloading $index.gif\n";
my $res = $ua->get("http://us.i1.yimg.com/us.yimg.com/i/us/we/52/$index.gif");
if ($res->is_success) {
open GIF, ">", "weather$index.gif";
binmode(GIF);
print GIF $res->content;
close(GIF);
}
}
</code>
<p><b>Update:</b> Added 3200.gif, as [ikegami] pointed out.</p>
507207
507207