ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Matyukhin                 2:5055/62.10   06 Jul 2001  11:31:50
 To : All
 Subject : Re: ?
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: usenet@tariel.vist-v.ru
 .RFC-NNTP-Posting-Date: 6 Jul 2001 07:31:51 GMT
 .RFC-User-Agent: Gnus/5.0803 (Gnus v5.8.3) Emacs/20.3
 From: Konstantin Matyukhin <Konstantin.Matyukhin@p10.f62.n5055.z2.fidonet.org>
 
 Alexander Babanov <Alexander.Babanov@p69.f5609.n5020.z2.fidonet.org> writes:
 
 > ЮІ±° Quoted soap from Anton V. Mechetin to All
 > 
 >  AM> есть пеpеменная хpанящая число байт. надо выводить это число в виде
 >  AM> тpиад pазделённых запятыми. то есть:  22             -> 22
 >  AM>           631            -> 631
 >  AM>           3771           -> 3,771
 >  AM>           43777642332390 -> 43,777,642,332,390
 > 
 >  AM> можно такое сделать пpосто? а то пpишось подпpогpаммкy на 35 стpочек
 >  AM> делать :) ...
 >
 > perldoc -q "with commas"
 
 Cookbook рулит.
 
 sub commify {
         my $text = reverse $_[0];
         $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
         return scalar reverse $text;
 }
 
 -- 
 С уважением,
 Константин Матюхин
 --- ifmail v.2.14
  * Origin: Вист-Волгоград (2:5055/62.10@fidonet)
 
 

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

Тема:    Автор:    Дата:    ?   Anton V. Mechetin   05 Jul 2001 23:41:18   Re: ?   Alexander Babanov   05 Jul 2001 14:35:21   Re: ?   Konstantin Matyukhin   06 Jul 2001 11:31:50   Re^2: ?   Anton V. Mechetin   07 Jul 2001 06:16:22   Re^2: ?   Alexander Babanov   06 Jul 2001 19:03:00   Re: ?   John Lepikhin   06 Jul 2001 14:51:08   Re^2: ?   Anton V. Mechetin   07 Jul 2001 06:17:28