Forum Webscript.Ru

Программирование => Perl => Тема начата: vladsu от 20 Августа 2004, 14:19:40

Название: Проблема с @ARGV в винде
Отправлено: vladsu от 20 Августа 2004, 14:19:40

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!!!

Что за фигня в двух первых вариантах запуска?
Почему скрипт ничего не ловит в аргв?