#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell
# 315EHVb - cnv (CoNVert number bases) <NumberString> <FromBase> <ToBase> created by Pip Stuart <Pip@CPAN.Org> as part of the Math::BaseCnv package
#  If you only supply a number, it will convert to hex if it's decimal && decimal if it contains only valid hex digits.  If you just provide one
#    base parameter, it assumes that your number is already base10 && that you've supplied the ToBase.  Otherwise, you need from && to parameters.
#  Examples: `cnv 127   10 16` == "7F"
#            `cnv 7F    16 3`  == "11201"
#            `cnv 11201 3  7`  == "241"
#            `cnv 241   7  10` == "127"    # Eror checking is minimal.
use strict; use warnings; use Math::BaseCnv;
my $numb = shift; die("USAGE: `cnv <NumberString> <FromBase> <ToBase>`\n") if(!defined($numb) || $numb =~ /^-+[h\?]/i); print(cnv($numb, shift, shift));
