![]() ![]() | ![]() |
version 1.82, 2014/07/10 08:20:13 | version 1.83, 2014/11/02 01:11:47 | ||
---|---|---|---|
|
|
||
my $p = shift @ARGV; | my $p = shift @ARGV; | ||
my $op = undef; | my $op = undef; | ||
my $v = undef; | my $v = undef; | ||
if (@ARGV >= 2 && $ARGV[0] =~ /^[<=>]+$/ && | if (@ARGV >= 2 && $ARGV[0] =~ /^[<=>!]+$/ && | ||
$ARGV[1] =~ /^[\d\.]+[\w\.]*$/) { | $ARGV[1] =~ /^[\d\.]+[\w\.]*$/) { | ||
$op = shift @ARGV; | $op = shift @ARGV; | ||
$v = shift @ARGV; | $v = shift @ARGV; |