Нужно составить регулярное выражение, которое будет расставалять разделитель разрядов в число, т.е. 1234567890 преобразует в 1 234 567 890.

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

• Помогите составить регулярное выражение,dimka, 17:40 , 31-Май-04
• Помогите составить регулярное выражение,buzzer, 08:37 , 03-Июн-04
• Помогите составить регулярное выражение,Oleg, 11:24 , 03-Июн-04

>Нужно составить регулярное выражение, которое будет расставалять разделитель разрядов в число, т.е.
>1234567890 преобразует в 1 234 567 890.
>
>$s =~ s/(...)/\ $1/g работает только, если число цифр кратно трем :(
>

perldoc Number::Format

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

>Нужно составить регулярное выражение, которое будет расставалять разделитель разрядов в число, т.е.
>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