perl ./script.pl --ed 10-31-2011 -d
Can't open perl script "./script.pl --ed": No such file or directory
####
root@dom:/home/fre/bin# perl /home/fre/bin/script.pl --ed 10-31-2011 -d
Can't open perl script "/home/free/bin/script.pl --ed": No such file or directory
####
root@dom:/home/fre/bin# ./script.pl --ed 10-31-2011 -d
-bash: ./script.pl --ed: No such file or directory
####
./script.pl
Usage: ./script.pl --ed end_date --sales-table /path/to/sales/file
Use -d or -debug for debugging
####
#!/usr/bin/perl
use 5.10;
use strict;
use warnings;
use Getopt::Long;
my ($enddate, $csv_file) = (0, 0);
my $DEBUG = 0;
GetOptions(
'enddate|ed=s' => \$enddate,
'sales-table|s=s' => \$csv_file,
'debug|d' => \$DEBUG,
) or die_usage();
die_usage() unless ($enddate && $csv_file);
sub die_usage{
say "Usage: $0 --ed end_date --sales-table /path/to/sales/file";
say "Use -d or -debug for debugging";
exit;
}