test_getopt.pl
#!/usr/bin/perl.exe -w
use strict;
use Getopt::Long;
my $VERSION = \'1.0\';
my $optionVersion;
my $optionHelp;
GetOptions("help" => \\$optionHelp,
"version" => \\$optionVersion,
);
print $VERSION,"\\n" and exit if ($optionVersion);
print "Help printed\\n" and exit if ($optionHelp);
print @ARGV,"\\nWrong!!!";
C:\\tmp>test_getopt.pl version
Wrong!!!
C:\\tmp>test_getopt.pl -version
Wrong!!!
C:\\tmp>perl test_getopt.pl -version
1.0
C:\\tmp>perl test_getopt.pl version
version
Wrong!!!
Что за фигня в двух первых вариантах запуска?
Почему скрипт ничего не ловит в аргв?