Just another Perl shrine | |
PerlMonks |
Re: Code Typesetterby ursus (Acolyte) |
on Jul 23, 2007 at 20:25 UTC ( [id://628321]=note: print w/replies, xml ) | Need Help?? |
In line 6, I recommend (my $ps = $_) =~ s/(\.[^.]+)?$/.ps/; This should eliminate the extension requirement. I also recommend at line 20, using while (condition) { } as it clarifies the intent of the statement (IMO). All in all, an excellent idea. I'll probably use it sometime.
In Section
Code Catacombs
|
|