Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Округление / 7 сообщений из 7, страница 1 из 1
02.06.2005, 19:13
    #33098288
Partos
Partos
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
Здраствуйте.


Подскажите плиз как округлить число в Perl по особому условию:

БД возвращает число формата: ,5
Требуется преобразовать это число к формату: 0,5

При этом если БД вернула число 3 то оно должно быть отражено так же...тоесть все незначащие нули кроме того что перед запятой надо обрезать...

Копался, копался я в sprintf но так и не понял как это сделать....с Си не знаком а везде где натыкался говорят "эта функция работает так же как в Си..."..в результате толком параметров spintf так и не нашёл

Подскажите плиз
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2005, 21:17
    #33098408
g613
g613
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
PartosЗдраствуйте.


Подскажите плиз как округлить число в Perl по особому условию:

БД возвращает число формата: ,5
Требуется преобразовать это число к формату: 0,5

При этом если БД вернула число 3 то оно должно быть отражено так же...тоесть все незначащие нули кроме того что перед запятой надо обрезать...


...вообще это таки уже не округление а скорее преобразование....

если грубо то:

Код: plaintext
1.
2.
3.
$num = ',5';
$num =~ s#^,#.#;
printf "%.2f\n", $num;

если хочеш без ~s###, теоретически должно помочь выставление правильной локали
( гдето в районе LC_NUMERIC )...



Копался, копался я в sprintf но так и не понял как это сделать....с Си не знаком а везде где натыкался говорят "эта функция работает так же как в Си..."..в результате толком параметров spintf так и не нашёл

Подскажите плиз

perldoc -f sprintf

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2005, 14:50
    #33099934
Хрен
Хрен
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
Код: plaintext
1.
2.
3.
4.
5.
6.
 
$>perl
$a=. 5 ;
print $a

 0 . 5

что то недопонял вопрос. вроде и так преобразует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2005, 14:59
    #33099957
Black
Black
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
там ЗАПЯТАЯ, а не ТОЧКА :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2005, 16:27
    #33100293
Хрен
Хрен
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
и никак не поменять??? какой ужас

PS. кричать не обязательно, я различаю точки и запятые. Всего-то операция в одно действие - замени запятую на точку(подсказать как?) и сложи с 0 , чтобы сменить контекст. Bыведет с тем числом нулей впереди с каким полагается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2005, 16:31
    #33100305
Black
Black
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
уважаемый, я не кричал, а выделил текст (надо было конечно использовать стили) + в конце добавил смайлик ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2005, 22:15
    #33100806
Хрен
Хрен
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(Perl) Округление
не сердитесь. просто большие буквы - это общепризнанный знак повышенного голоса
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (Perl) Округление / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 338ms
Закрыть
start [/forum/topic.php?fid=23&mobile=1&tid=1478163]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 218ms
total:  338ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]