Just another Perl shrine | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
With no command line parameters I get:
three times interspersed with the expected output. All the ARGV tests should be wrapped in a if (@ARGV) {...} block. The current default case else then belongs to the new outer if block (do the else if there are no command line args). Your example uses /f, but /F is required for formatting. It would be worth running your code through perltidy - the indentation is rather arbitary in places. unless($warnalert = 1) is an error. It should probably be unless($warnalert) chop $ext; is an error. It is not required at all. There can be no line ends in command line arguments in Windows. print "$ext=$class \n" would be better as print "$ext = $class\n". DWIM is Perl's answer to Gödel In reply to Re: perl-assoc 0.2
by GrandFather
|
|