将数字转换为excel的base26列字符串。 lang perl

Question

  

可能重复：
  How to convert a column number (eg. 127) into an excel column (eg. AA)

如何将数字转换为excel的base26列字符串。 lang perl

Answer 1

Number::Latin

Answer 2

如果这是快速和肮脏的东西，以下子可能是有用的。

sub column2base26 {

    my $column = shift;
    die "Column $column must be positive" unless $column > 0;

    my $string = 'A';
    $string++ for 2..$column;
    return $string;
}

print column2base26($_), "\n" foreach (23, 15, 333);

# Output:
# W
# O
# LU