ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serge Vylekzhanin                    2:5052/4       22 Jun 2000  13:52:14
 To : alexander smishlajev
 Subject : Re: Вывод 1 234 567 890,   вместо 1234567890 ???
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: news@info.martelcom.ru
 .RFC-NNTP-Posting-Date: 22 Jun 2000 09:52:14 GMT
 From: Serge Vylekzhanin <Serge.Vylekzhanin@f4.n5052.z2.fidonet.org>
 
 alexander smishlajev <alexander.smishlajev@p8.f14.n5100.z2.fidonet.org> wrote:
 
 > класс!  просили не подсказывать, но вот еще вариант:
 > 
 
 [skip]
 
 Уже такие варианты навороченные пошли! :)
 
 такого еще не было?   :)
 
 sub ed
 {
   my $data = reverse( $_[0] );
   $data =~ s/\d{3}/$& /g;
   return( scalar reverse( $data ) );
 }
 $data = '0123456789';
 print &ed( $data ), "\n\n";
 -- 
   Serge
 --- ifmail v.2.14.os7-aks5
  * Origin: Open Joint Stock Company Martelcom (2:5052/4@fidonet)
 
 

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