14 lines
354 B
Perl
14 lines
354 B
Perl
sub test_num {
|
|
my $f = shift;
|
|
my $s = shift;
|
|
if ($f < $s){
|
|
return -1; # returns -1 if $f is less than $s
|
|
} elsif ($f > $s) {
|
|
return 1; # returns 1 if $f is greater than $s
|
|
} elsif ($f == $s) {
|
|
# = operator is an assignment
|
|
# == operator is a numeric comparison
|
|
return 0; # returns 0 $f is equal to $s
|
|
};
|
|
};
|