Perl 初心者コーナー Part23

[0493 nobodyさん 03/05/28 01:30 ID:???]

>>489
$number = 16777215(\xFFFFFF)以上の文字;
$num = sprintf(qq{%04X%04X},int($number/0x10000),$number%0x10000);
みたいな。