NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
silent11 (2860)
Monday August 30, 2004
08:50 AM
Squid.pl
use LWP::Simple 'getstore';
for (1..140){
getstore('http://www.squidfingers.com/patterns/patterns/img_'.$_.'.gi f',$_.'.gif');
print qq~
<table background="$_.gif" height="400" width="100%">
<tr>
<td align="center" valign="middle"><h1>$_</h1></td>
</tr>
</table>~
}
usage:
perl squid.pl > out.html
about I/O disciplines and I should retire to the Tassili-in-Aijer
mountains in Sahara as a camel herder :-)
-- Jarkko Hietaniemi
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Squid.pl 0 Comments More | Login | Reply /