$revsort = (($sortby<=4 or $sortby==9 or $sortby==18)?'no':'yes') unless $revsort;

Quote

kabel@kabel:/tmp$ cat asdf.pl

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

use strict;

my $revsort = 0;
my $sortby = 18;

sub check {
        my $var = shift;
        my $bool = 0;
        foreach (@_) {
              $bool = 1 if eval "\$$var $_";
        }
        eval "\$$var = $bool";
}

print "revsort ist [$revsort]\n";
check ("revsort", "<=4", "==9", "==18") unless $revsort;
print "revsort ist [$revsort]\n";

kabel@kabel:/tmp$ perl -w asdf.pl
revsort ist [0]
revsort ist [1]
kabel@kabel:/tmp$