ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Victor Lokhin                        2:5020/400     15 Apr 2002  18:55:22
 To : All
 Subject : Re: конструкция
 -------------------------------------------------------------------------------- 
 

 
 "George" <George@p666.f997.n5030.z2.fidonet.org> wrote in message
 news:MSGID_2=3A5030=2F997.666_3cb95c60@fidonet.org...
 
 >                  Пpиветствую тебя, All!
 >
 >  Почему так не pаботает
 >   print "$1$tmp$2" foreach $tmp (@strings)
 >
 >  а так pаботает
 >   foreach $tmp (@strings)
 >    { print "$1$tmp$2" }
 
 Для начала: use strict;
 my @strings = qw( aaa bbb ccc ddd );
 my $tmp = "aaasssaaasssaaasss";
 
 $tmp =~ /(aaa)sss(aaa)/;
 
   print "$1 $2\n";
   print "$1$_$2\n" foreach (@strings);
 
 Виктор
 --- ifmail v.2.15dev5
  * Origin: EMS JSC News Server (2:5020/400)
 
 

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