Perl コーディング初心者質問コーナー Part26

[0835 nobodyさん 03/08/10 22:56 ID:???]

$time = sprintf(qq{%02d\.%02d},int($time),($time - int($time))*60);