ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Kalachev                  2:5020/1711.9  22 Sep 2000  22:26:30
 To : Alexey Zajcew
 Subject : Re: Разбить на триады
 -------------------------------------------------------------------------------- 
 

 
  AZ> Подскажите как разбить на триады (по три цифры через пробел) ?
  AZ> '12345678'
  AZ> должно получиться:
  AZ> '12 345 678'
 
 sub commify {
     my $text = reverse $_[0];
     $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1./g;
     return scalar reverse $text;
 }
 
 (c) Perl CookBook
 
 Только вместо точки пробел поставь:
     $text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1 /g;
 
 np: nothing
                                                           Nevermind
 --- GoldED+/386 1.1.1.2
  * Origin: Катали мы ваше солнце! (с) С. Лукьяненко (2:5020/1711.9)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Разбить на триады   Alexey Zajcew   22 Sep 2000 14:37:52   Re: Разбить на триады   Eugene Bodin   22 Sep 2000 12:46:01   Re: Разбить на триады   Ivan Frolcov   22 Sep 2000 12:48:12   Re: Разбить на триады   Konstantin Kalachev   22 Sep 2000 22:26:30