|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Tokar 2:5020/400 08 May 2004 18:12:37
To : abrasha shapirus
Subject : Re: Как получить дробную часть числа?
--------------------------------------------------------------------------------
abrasha shapirus wrote:
> ,
> 08 Май 04, Konstantin Tokar --> Serge Chervjakov
>
> >> для положительного можно:
> >> my $ch=10.1;
> >> my $r_part=$ch-int($ch);
> >> а для нецелого по-мойму тоже...
> >> но вот работает, возможно, не очень шустро:).
> >>
> KT> Если бы вообще работало...
> F:\temp>> perl -we "my $ch=10.1; my $r_part=$ch-int($ch); print
> F:\temp>> $r_part;"
> KT> 0.0999999999999996
>
> дык ведь работает. сделай
>
> my $ch = 0.1;
> printf("%.2f", $ch - int($ch));
>
> и все будет как положено.
Проще уж будет split '.' применить, всё-таки форматирование долгая
операция. Хочется простой способ и без операции вычитание.
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
