On Fri, Jan 11, 2008 at 01:37:25PM +0800, imacat wrote:
> [EMAIL PROTECTED] build/MP3-Tag-0.9709-Xr2Xj_ % perl -Mblib -MMP3::Tag -wle
> '$s=MP3::Tag::->new_fake; $s->{ms} = int(56345*1000 + 0.5); print
> $s->interpolate(qq(%{SL}))'
> 4
> [EMAIL PROTECTED] build/MP3-Tag-0.9709-Xr2Xj_ %
Sorry to do it so piecewise. Next, could you check
perl -wle '$ms = int(56345*1000 + 0.5); $s = int(0.001 * $ms); $ss = $s % 60;
print for $ms, $s, $ss'
(maybe it is 32bit vs 64bit issue? Then
perl -wle '$ms = int(56345*1000 + 0.5); $s = int(0.001 * ($ms + 0.5)); $ss =
$s % 60; print for $ms, $s, $ss'
should give the "expected" value...).
Thanks,
Ilya
