Вопрос по условному оператору "?:"

[hoochie]

#! /usr/bin/perl -w

print "$#ARGV   @ARGV\\n";

@ARGV[0] eq "-w" ?  $wait=@ARGV[1] : $wait=3;
print "Perem=$wait\\n\\n";



./argv.pl -w 11
Scalar value @ARGV[0] better written as $ARGV[0] at ./argv.pl line 5.
Scalar value @ARGV[1] better written as $ARGV[1] at ./argv.pl line 5.
1       -w 11
Perem=3

Это оно? больше не выдает ничего

[hoochie]

@ARGV[0] eq "-w" ?  $wait=@ARGV[1] :{ $wait=3};
а вот так нормально работает..... ПОЧЕМУ?

[vladsu]

hoochie:
В чем глюк конструкции @ARGV[0] eq "-w" ? $wait=@ARGV[1] : $wait=3;

Во-первых
use strict;

Во-вторых

Код: [Выделить]


#!/usr/bin/perl -w

use strict;

my $wait;

$wait = $ARGV[0] eq \'-w\' ? $ARGV[1] : 3;
print "Perem=$wait\\n";


В третьих

use Getopt::Long;

[hoochie]

Вот так понятно, спасибо

[KiLLjoY aka SerZH]

Сорри, всё не читал..
Вот так никто не пробовал:

$-----------------------------1332282325870
Content-Disposition: form-data; name="s"