eval operators

gistfile1.pl

%sub = (
	">" => sub{ $_[0] > $_[1] },
	"<" => sub{ $_[0] < $_[1] },
	"=" => sub{ $_[0] == $_[1] },
	"!=" => sub{ $_[0] != $_[1] }
	);

$p = $ARGV[0]; # number
$r = $ARGV[1]; # operator
$q = $ARGV[2]; # number

print $sub{$r}($p,$q) ? "Yes\n":"No\n"

# example:
#
# >1.pl 10 "=" 20
# No
#
# >1.pl 10 "!=" 20
# Yes
#
# >1.pl 10 "<" 20
# Yes
#
# >1.pl 10 ">" 20
# No
#
# >1.pl 10 ">" 0
# Yes
#
# >1.pl 10 ">" Z
# Yes