go ahead... be a heretic | |
PerlMonks |
Re: Improvement suggestions?by Masem (Monsignor) |
on Oct 14, 2001 at 02:36 UTC ( [id://118704]=note: print w/replies, xml ) | Need Help?? |
You've got -w , but not use strict. While I think your code is strict already, it's always a good idea to have this.
It's much easier to glob a file list, than to use a system call; the former is more portable than other methods. That is, you can reduce your pre-function code to : You should always catch errros from file system calls like open, that is, you should do open (OUTPUT, ">$filename") or die "Can't open $filename: $!"; to get meaningful errors. IMO, it would also be better to write to a temporary file then move the file over using rename than to write over an existing file. This would minimize the chance of errors losing any original HTML files to start with. Everything else seems good from a programmer's standpoint.
-----------------------------------------------------
In Section
Seekers of Perl Wisdom
|
|