ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     12 May 2000  17:03:32
 To : All
 Subject : Re: Шаблон
 -------------------------------------------------------------------------------- 
 

 Konstantin Kalachev wrote:
 
 > Олл, очень нужен совет.
 > 
 > $data = "[tag] one [/tag] something else [tag] two [/tag]";
 > 
 > Если я говорю:
 > 
 > if( $data =~ /\[tag\](.*)\[\/tag\]/s )
 > {
 >     print $1;
 > }
 > 
 > То $1 == " one [/some] something else [some] two "
 > А как можно сделать так, чтобы он находил эти фрагменты как
 > $1 == " one "
 > $2 == " two "
 > 
 > И как можно все значения $1 ... $n записать в массив?
 
 @tags=$data=~/\[tag\](.*?)\[\/tag\]/gs;
 
 Andrey
 --- ifmail v.2.15dev5
  * Origin: Chelindbank (2:5020/400)
 
 

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