#!/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 reply to Re: Alpha base-26 to base-10...
by pfaut
in thread Alpha base-26 to base-10...
by eduardo
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |