odx

#!/usr/bin/perl
# ========================================================================
# /u/barron/pub/prj/perlutil/odx
#
# @(#) @what-string@
#
# Syntax:
#   
#   
# History:
#  1998-09-01    tb    created
#
# Notes:
#
# ========================================================================

foreach $str (@ARGV)
{
   if ($str =~ /^0x/)
   {
      $val = hex($str);
   }
   elsif ($str =~ /^0/)
   {
      $val = oct($str);
   }
   else
   {
      $val = $str;
   }
   
   printf("%s -> %d / 0x%x / 0%on", $str, $val, $val, $val);
}