#!/usr/bin/perl
# 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));