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

Question

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

如何转换数base26列字符串为Excel。郎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