#!/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: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |