Hello, sisyphus.
Thank you for your answer.
> That can fail if $value is so big that it requires more than 15 decimal
> digits to express it accurately.
I want to use like
(...snipped...)
my $sb = lstat($file) || next;
next unless (S_ISREG($sb->mode) && $sb->size);
(...snipped...)
$curl->setopt(CURLOPT_URL, sprintf('%s/size=%s/stamp=%s/%s', $cgi_path,
$sb->size, $stamp, $filename));
(...snipped...)
and therefore 15 decimal digits will be enough. Who wants to upload 10TB+ file?
;-)
But for the record who wants to use such large value,
> Note that even with Math::BigInt it's important that you assign the value
> as a string:
>
> C:\_32>perl -MMath::BigInt -le "printf '%s',
> Math::BigInt->new('901234567890123456789');"
> 901234567890123456789
>
> If you assign it as number (unquoted):
>
> C:\_32>perl -MMath::BigInt -le "printf '%s',
> Math::BigInt->new(901234567890123456789);"
> 901234567890123000000
how can I pass $sb->size to Math::BigInt->new() as a string (assuming that
$sb->size is an integer) ?
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
