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

可能重复：
如何将列号（如127）转换为Excel列（如AA）

如何将数字转换为excel的base26列string。 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