ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Paul Kulchenko                       2:5020/400     07 Jun 2000  01:29:41
 To : All
 Subject : Re: Как упорстить?
 -------------------------------------------------------------------------------- 
 

 Hi, Tim!
 Tim Tokarev wrote in message <8haheo$9dj$1@news.kts.ru>...
 
 >my $birth_date;
 >($birth_date = $fd) =~ s/(\d{4})(\d{2})(\d{2})/$3\/$2\/$1/;
 >...
 >my $string = Sub_a($aa,$bb,$birth_date);
 >
 >хочу без содания $birth_date, сделать что-то типа того :
 >my $string = Sub_a($aa,$bb
 >,($a = $fd) =~ s/(\d{4})(\d{2})(\d{2})/$3\/$2\/$1/ );
 >как реализовать задуманное ?
 
 my $string = Sub_a($aa,$bb,do {my($a = $fd) =~
 s/(\d{4})(\d{2})(\d{2})/$3\/$2\/$1/; $a});
  или
 my $string = Sub_a($aa,$bb,map {local $_ = $_;
 s/(\d{4})(\d{2})(\d{2})/$3\/$2\/$1/; $_} $fd);
                                         # local нужен, если не хочешь менять
 $fd
 Только надо ли?
 
 Best wishes, Paul.
 --- ifmail v.2.15dev5
  * Origin: Rostelecom/Internet Centre (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Как упорстить?   Tim Tokarev   03 Jun 2000 13:08:02   Как yпоpстить?   Albert N. MICHEEV   03 Jun 2000 13:54:21   Re: Как упорстить?   Paul Kulchenko   07 Jun 2000 01:29:41