- RU.PERL ----------------------------------------------------------- RU.PERL -
Msg : #3504 [639]
От : Konstantin Tokar 2:5020/400 08 мая 04, 15:15
Кому : Serge Chervjakov 10 мая 04, 22:44
Тема : Re: Как получить дробную часть числа?
-------------------------------------------------------------------------------
From: Konstantin Tokar
Serge Chervjakov wrote:
> Sat May 08 2004 01:18, Konstantin Tokar wrote to Konstantin Tokar:
>
> >> Как получить дробную часть числа? То есть, для числа например 10.1
> >> получить 1.
>
> KT> Точнее, для числа 10.1 получить 0.1
>
> для положительного можно:
> my $ch=10.1;
> my $r_part=$ch-int($ch);
> а для нецелого по-мойму тоже...
> но вот работает, возможно, не очень шустро:).
>
Если бы вообще работало...
F:\temp>perl -we "my $ch=10.1; my $r_part=$ch-int($ch); print $r_part;"
0.0999999999999996
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)