version 1.58, 2011/06/11 12:09:06 |
version 1.59, 2011/06/12 17:08:44 |
|
|
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; |
} |
} |
|
|
# accepted are (in order): a(lpha) < b(eta) < rc < ' '. |
# accepted are (in order): a(lpha) < b(eta) < rc < ' '. |
# suffix[0] is the 'alpha' part, suffix[1] is the '1' part in 'alpha1'. |
# suffix[0] is the 'alpha' part, suffix[1] is the '1' part in 'alpha1'. |
# XXX: add back 'rc' |
# XXX: add back 'rc' |
if ($a =~ s/(beta|b|alpha|a)(\d+)$//) { |
if ($a =~ s/(rc|beta|b|alpha|a)(\d+)$//) { |
print STDERR "valid suffix $1$2 found in $a$1$2.\n" if $D; |
print STDERR "valid suffix $1$2 found in $a$1$2.\n" if $D; |
$suffix_a[0] = $1; |
$suffix_a[0] = $1; |
$suffix_a[1] = $2; |
$suffix_a[1] = $2; |
} |
} |
|
|
if ($b =~ s/(beta|b|alpha|a)(\d+)$//) { |
if ($b =~ s/(rc|beta|b|alpha|a)(\d+)$//) { |
print STDERR "valid suffix $1$2 found in $b$1$2.\n" if $D; |
print STDERR "valid suffix $1$2 found in $b$1$2.\n" if $D; |
$suffix_b[0] = $1; |
$suffix_b[0] = $1; |
$suffix_b[1] = $2; |
$suffix_b[1] = $2; |