#!/usr/local/bin/perl use strict; sub usage { die "USAGE: $0 \$raw_file \$cooked_dir"; } scalar @ARGV == 2 and my ($raw_file,$cooked_dir) = @ARGV or usage; warn "$raw_file, $cooked_dir";
In reply to Ensuring the correct number of arguments, assigning them or printing usage by princepawn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |