The OpenNET Project / Index page

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

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

"Помогите составить регулярное выражение"
Сообщение от forever11 emailИскать по авторуВ закладки(??) on 29-Май-04, 13:30  (MSK)
Нужно составить регулярное выражение, которое будет расставалять разделитель разрядов в число, т.е. 1234567890 преобразует в 1 234 567 890.

$s =~ s/(...)/\ $1/g работает только, если число цифр кратно трем :(

  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "Помогите составить регулярное выражение"
Сообщение от dimka Искать по авторуВ закладки(??) on 31-Май-04, 17:40  (MSK)
>Нужно составить регулярное выражение, которое будет расставалять разделитель разрядов в число, т.е.
>1234567890 преобразует в 1 234 567 890.
>
>$s =~ s/(...)/\ $1/g работает только, если число цифр кратно трем :(
>

perldoc Number::Format

  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Помогите составить регулярное выражение"
Сообщение от buzzer Искать по авторуВ закладки(??) on 03-Июн-04, 08:37  (MSK)
$s=reverse $s;
$s=~s/(\d{3})(?=.)/$1 /g;
$s=reverse $s;

  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "Помогите составить регулярное выражение"
Сообщение от Oleg emailИскать по авторуВ закладки(??) on 03-Июн-04, 11:24  (MSK)
>Нужно составить регулярное выражение, которое будет расставалять разделитель разрядов в число, т.е.
>1234567890 преобразует в 1 234 567 890.
>
>$s =~ s/(...)/\ $1/g работает только, если число цифр кратно трем :(
>


Perl Cookbook, 2.17, стр. 89

sub commify {
  my $text = reverse $_[0];
  $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
  return scalar reverse $text;
}
print commify(3.1415926535897932 * 1000000);


Свой вариант:
$s = 3.1415926535897932 * 1000000;
1 while $s =~ s/(\d+)(\d\d\d)(\D)/$1,$2$3/;
print "$s\n";


Естественно, в обоих случаях вместо "$1," можно поставить "$1 ".
Цифры после десятичной точки не разделяются.


Еще можно посмотреть "Masternig regular epressions" by J.Friedl

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




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

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