Do you know where your variables are? | |
PerlMonks |
Re: perl-assoc 0.2by GrandFather (Saint) |
on Aug 16, 2006 at 22:46 UTC ( [id://567776]=note: 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 Section
Code Catacombs
|
|