Perlコーディング初心者質問スレ Part 63

[0392 nobodyさん 2011/12/15(木) 20:45:17.94 ID:???]

sub convert {
my $n = shift;
my $al = shift || '';
return $n > 0 ? convert(int(($n - 1) / 26), chr(0x41 + ($n - 1) % 26) . $al) : $al;
}
print convert(28); #=> 'AB'