|Perl: the Markov chain saw|
Re: SCS2CSSby chromatic (Archbishop)
|on Nov 20, 2001 at 09:31 UTC||Need Help??|
Care for a couple small suggestions?
This could be more succinct as:
my $scs = shift or die "Usage: $0 <scsfile>\n";
Don't forget to check the success of your open calls.
You might want to escape the periods and anchor the ends of your regular expression. File::Basename might also come in handy, but may be severe overkill:
(my $css = $scs) =~ s/\.scs\z/.css/;
A heredoc would make the print statements somewhat more manageable. Roll on Perl 6 and intendable heredocs!