ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Eugene Bodin                         2:5020/400     22 Sep 2000  12:46:01
 To : All
 Subject : Re: Разбить на триады
 -------------------------------------------------------------------------------- 
 

 
 Hello Alexey,
 
 Alexey Zajcew <Alexey.Zajcew@p36.f104.n5000.z2.fidonet.org> wrote:
 
 > Подскажите как разбить на триады (по три цифры через пробел) ?
 > '12345678'
 > должно получиться:
 > '12 345 678'
 
 sub spacing {
   my $t = reverse $_[0];
   $t =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1 /g;
   return scalar reverse $t;
 }
 # Получено из функции commify из "книги с бараном (или горным козлом)"
 (стр. 89).
 
 Eugene
 --- ifmail v.2.15dev5
  * Origin: Fairness has no quantitive measurement (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Разбить на триады   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