For some reason this code caught my eye and I started to clean it up. Then
I decided to write down notes on the steps I was taking because it provided
such a nice little microcosm on Perl refactoring. The sort of code below is
very common.
So I've written up a bunch of slides showing the steps
Quoting vakeel ahmad ([EMAIL PROTECTED]):
You can do by this way
#!/usr/bin/perl
print Content-Type:image/gif\n\n;
open(FILE,filename);
@file=(FILE);
foreach $file(@file)
{
print $file;
}
close(FILE);
The unnecessary symbols in:
print $file;
are bad style, and may make
* Adam Rice [EMAIL PROTECTED] [2002-10-05 23:26]:
If I was writing this for work I would include error
checking and read and write the file in 64k blocks, but
there's no fun way to do that in Perl so I'll leave it out
here.
Yes there is.
$/ = \(65536);
See perldoc perlvar on $/
--
