Excelの列ってAとかAAとかあるんですが、それを数値として処理できるようにするための関数でつ。

追記: k3cさんが直してくれますた。この手のアルゴリズムはまだ磨きがたりないな＿|￣|○

sub rowtonum($) {
        my ($row) = @_;
        my $base = ord("a");
        my $interval = ord("z") - $base;
        my $rownum = 0;
        my $dig = 0;
        foreach my $c (reverse(split(//, $row))) {
                $rownum += (ord(lc($c)) - $base + 1) * ($dig * $interval + 1);
                $dig++;
        }
        $rownum--;
        return $rownum;
}

へびだとこうなる。計算がめんどくさいからあんま見た目かわらんかも。

def rowtonum(row):
        base = ord('a')
        interval = ord('z') - base;
        rownum = 0
        dig = 0
        row = list(row)
        row.reverse()
        for c in row:
                rownum += (ord(c.lower()) - base + 1) * (dig * interval + 1)
                dig += 1
        rownum -= 1
        return rownum