The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"отделения разрядов в целой части числа perl"
Вариант для распечатки  
Пред. тема | След. тема 
Форумы Программирование под UNIX (Public)
Изначальное сообщение [Проследить за развитием треда]

"отделения разрядов в целой части числа perl"  
Сообщение от Happy_demon email(ok) on 29-Мрт-07, 16:57 
собственно, я что-то туплю. есть число 123456789. надо вывести его в perl в виде 123 456 789. полистал printf- вроде не нашел. не подскажете, как?
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

 Оглавление

Сообщения по теме [Сортировка по времени, UBB]


1. "отделения разрядов в целой части числа perl"  
Сообщение от Happy_demon email(ok) on 29-Мрт-07, 17:11 
>собственно, я что-то туплю. есть число 123456789. надо вывести его в perl
>в виде 123 456 789. полистал printf- вроде не нашел. не
>подскажете, как?
Поиск рулит :-)
непонятно, почему это не стандартной функцией сделано, и непонятно, почему я это только здесь, на опеннете нашел, неужели ни у кого такого вопроса не было?

$s=reverse $s;
$s=~s/(\d{3})(?=.)/$1 /g;
$s=reverse $s;

собственно, если не сложно
2007-03-28  192.168.20.102       9007     12 251
2007-03-28  192.168.20.103     610590  2 457 643
2007-03-28    192.168.20.2      32776     20 825
2007-03-28   192.168.20.20       7920      7 704
как сделать, чтобы второй столбец был влево прижат?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

2. "отделения разрядов в целой части числа perl"  
Сообщение от anonymous (??) on 29-Мрт-07, 17:40 
http://www.webreference.com/programming/perl/format/
???
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

3. "отделения разрядов в целой части числа perl"  
Сообщение от bass (??) on 30-Мрт-07, 10:26 
>http://www.webreference.com/programming/perl/format/
>???

$num = 100000000000000;                                                                                                
while ($num =~ s/(\d\d\d)(\d\d\d)(?!\d)/$1 $2/){};                                                                      
print $num;

пойдёт?

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "отделения разрядов в целой части числа perl"  
Сообщение от Happy_demon email(ok) on 30-Мрт-07, 11:57 
>>http://www.webreference.com/programming/perl/format/
>>???
>
>$num = 100000000000000;
>while ($num =~ s/(\d\d\d)(\d\d\d)(?!\d)/$1 $2/){};
>print $num;
>
>пойдёт?

ну, э-э-э почти. если $num=1234, то на выходе так и получается 1234, а не 1 234, если поставить 5 цифер-тоже выдает неправильно, в общем не работает

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

5. "отделения разрядов в целой части числа perl"  
Сообщение от FarID (ok) on 01-Апр-07, 10:54 
>>собственно, я что-то туплю. есть число 123456789. надо вывести его в perl
>>в виде 123 456 789. полистал printf- вроде не нашел. не
>>подскажете, как?
>Поиск рулит :-)
>непонятно, почему это не стандартной функцией сделано, и непонятно, почему я это
>только здесь, на опеннете нашел, неужели ни у кого такого вопроса
>не было?
>
>$s=reverse $s;
>$s=~s/(\d{3})(?=.)/$1 /g;
>$s=reverse $s;
>
>собственно, если не сложно
>2007-03-28  192.168.20.102       9007  
>  12 251
>2007-03-28  192.168.20.103     610590  2 457 643
>
>2007-03-28    192.168.20.2      32776  
>   20 825
>2007-03-28   192.168.20.20       7920  
>    7 704
>как сделать, чтобы второй столбец был влево прижат?

о ужос...   насчет влево: printf "%-s", string

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру