Decimal to base(radix) N conversion

				
=**************************************
= Name: Decimal to base(radix) N conversion
= Description:Converts a decimal number to any other base
= By: JS
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=802&lngWId=6=for details.=**************************************

#!/usr/bin/perl
#Jagat Sastry PMay 20, 2011
#Convert <number> from decimal to <base> representation.
#Usage
#jagat@jagat-ubuntu:~/programming$ perl decToNBase.pl 100 16 1
#Using recursion
#64
#jagat@jagat-ubuntu:~/programming$ perl decToNBase.pl 100 8 2
#Using iteration
#144
#jagat@jagat-ubuntu:~/programming$ perl decToNBase.pl 100 2 3
#Using stacks
#1100100
#jagat@jagat-ubuntu:~/programming$ perl decToNBase.pl 100 2
#Using stacks
#1100100
my $dbg = 1; 
if($#ARGV < 1) {
 print "<number> <base> [method: 1 - Recursive, 2 - Iterative, 3/else - Stack] expected \n";
 exit 1;
}
if($ARGV[2] == 1) {
 print "Using recursion\n" if $dbg;
 print convertRec($ARGV[0], $ARGV[1])."\n";
}
elsif($ARGV[2] == 2) {
 print convertIter($ARGV[0], $ARGV[1])."\n";
}
else {
 print convertStack($ARGV[0], $ARGV[1])."\n";
}
sub convertRec
{
 my $num = @_[0];
 my $base = @_[1];
 return $num if($num < $base);
 
 my $dig = $num % $base;
 return convertRec(int($num/$base), $base).$dig;
}
sub convertStack
{
 print "Using stacks\n" if $dbg;
 my $num = @_[0];
 my $base = @_[1];
 
 my $res = "";
 my @stack = ();
 while($num > 0) {
push @stack, $num % $base;
$num = int($num/$base);
 }
 my $res = "";
 while($#stack >= 0) {
$res = $res.pop(@stack);
 }
 return $res;
}
sub convertIter
{
 my $num = @_[0];
 my $base = @_[1];
 print "Using iteration\n" if $dbg;
 my $res="";
 while($num > 0) {
$res = ($num % $base)."$res";
$num = int($num/$base);
 }
 return $res;
}