|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nikolay Pichtin 2:5056/30 25 Jun 2002 23:38:24
To : Artem Chuprina
Subject : Re: Операции над числами
--------------------------------------------------------------------------------
NP> >>> Из внешнего источника получаю курс валют
NP> >>> в формате 31,3970. Хотел сделать вывод
NP> >>> разницы, т.е. вычесть из нового курса старый.
NP> >>> Hо дроби отделены запятыми. В результате получаю 0.
NP> >>> Пробовал их менять на точки s/,/./; не помогает. :-)))
IA>>> Ошибка в 18 строке.
IA>>> PS: Код в студию, где не получается.
NP>> my $r1 = (31,4046);
AC> print $r1, "\n";
NP>> my $r2 = (31,3970);
AC> print $r2, "\n";
AC> Осознание оставляется в качестве домашнего упражнения на чтение
AC> perlsyn, а лучше - Camel Book.
Ага.
NP>> print scalar $r1-$r2;
NP>> В результате получаем 76, а не 0.0076
NP>> Если же без scalar, то получаем 0.
AC> Последнее - неправда.
Вобщем сделал так:
my $r1 = '31,4046';
my $r2 = '31,3970';
$r1 =~ s/,/./;
$r2 =~ s/,/./;
printf "%3.4f",$r1-$r2;
* Если цель не опpавдывает сpедства, какя же это цель?
-- Hиколай
----------------------------------------------------------------------
---
* Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
