#!/usr/bin/env perl
#
# Name: num_compare.pl
#
# Description: 
#
#   Interprets two arguments as numeric values and does
#   a comparison between them.  This handles floating point
#   comparisons since the shell does not.
#
#   prints "1" if arg1 > arg2
#   prints "0" if arg1 = arg2
#   prints "-1" if arg1 < arg2
#
# Usage:
#	num_compare.pl $val1 $val2
#
#--------------------------------------------------------------------
#                          REVISION HISTORY
#--------------------------------------------------------------------
#  MOD             PR
# LEVEL   DATE   NUMBER  User  Description
# ----- -------- ------  ------ -------------------------------------
#       06/26/98 37054   MSwam  first version
#       05/25/00 37784_03 MSwam change name to num_compare.pl
#
#------------------------------------------------------------------------------
#
# 
$a = $ARGV[0];
$b = $ARGV[1];
#
#
if ($a > $b) {
  print "1\n";
}
elsif ($a < $b) {
  print "-1\n";
}
else {
  print "0\n";
}