Code: Select all
my ($var, $cond, $val) = $line =~ /^\$([a-zA-Z][a-zA-Z\d]*)?\s+([<>=!~]+?)\s+(.*?)/;
return 0 unless defined $var;
if (exists $varStack{$var}) {
return cmpr($varStack{$var}, $cond, $val)?1:0
} else {
return 0
}
p.s: So, I'm guessing that ... what sli wrote is not entirely wrong (in my point of view)