http://qs321.pair.com?node_id=270383


in reply to Alpha base-26 to base-10...

How about:
use Math::BaseCalc;
..And then...
my $base_26 = Math::BaseCalc->new(digits=>['A'..'Z']); print "Enter a value: "; while (<>) { chomp; print $base_26->from_base($_)."\n"; print "Enter a value: "; }
CPAN is a beautiful thing. FWIW, there is a bug in your base numbers. In a base-26 set "A" == 0, "B" == 1, etc. TTYL