in reply to Ensuring the correct number of arguments, assigning them or printing usage

I feel golfy. Not overly so, but a bit. 
(my ($x,$y,$z) = @ARGV) == 3 or usage();
# and trim it just a bit more...
(my($x,$y,$z)=@ARGV)-3&&usage();

[download]


japhy -- Perl and Regex Hacker
  • Comment on Re: Ensuring the correct number of arguments, assigning them or printnig usage
  • Download Code

In Section Cool Uses for Perl