#!/usr/bin/perl
$a = "abc";
$b = "xyz";
print "\$a = $a ,\$b = $b\n";
if( $a lt $b ){
print "$a lt \$b 返回 true\n";
}else{
print "\$a lt \$b 返回 false\n";
}
if( $a gt $b ){
print "\$a gt \$b 返回 true\n";
}else{
print "\$a gt \$b 返回 false\n";
}
if( $a le $b ){
print "\$a le \$b 返回 true\n";
}else{
print "\$a le \$b 返回 false\n";
}
if( $a ge $b ){
print "\$a ge \$b 返回 true\n";
}else{
print "\$a ge \$b 返回 false\n";
}
if( $a ne $b ){
print "\$a ne \$b 返回 true\n";
}else{
print "\$a ne \$b 返回 false\n";
}
$c = $a cmp $b;
print "\$a cmp \$b 返回 $c\n";