in reply to Alpha base-26 to base-10...
#!/usr/bin/perl -w use strict; sub convert26 { my $v = 0; $v = ($v * 26 + $_ - ord('a') + 1) for unpack("C*",shift); $v; } while (<DATA>) { chomp; print "$_: ",convert26($_),$/; } __DATA__ a z aa az ba zz aaa
Output:
a: 1 z: 26 aa: 27 az: 52 ba: 53 zz: 702 aaa: 703
90% of every Perl application is already written. ⇒ |
dragonchild |
|
---|
In Section
Seekers of Perl Wisdom