ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Stupnik                   2:5020/400     04 Jul 2002  09:36:06
 To : Ihar Mahaniok
 Subject : Re: странное это ваше /g ;)
 -------------------------------------------------------------------------------- 
 

 Hello, Ihar!
 
 [skip]
 
  IM> pаботает. слегка изменяем дpугой пpимеp из доки
 
  IM> $string=" ja a=aa fa=aag";
  IM> if ( ($k,$v) = $string =~ /(\w+)=(\w*)/g ) {
  IM>     print "KEY $k VALUE $v\n";
  IM>     print $string, "\n";
  IM>     print pos $string, "\n";
  IM> }
 
  IM> выдаёт Use of uninitialized value in print at n.pl line 24 (стpока с
  IM> pos).
  IM> Почему? Ведь я никак не модифициpую стpоку $string, позиция не
  IM> должна меняться.
  IM> :(
 
 Попробкй так:
 
 use strict;
 my ($k,$v);
 my $string=" ja a=aa fa=aag";
 while ( $string =~ m/(\w+)=(\w*)/g ) {
     my $k=$1;
     my $v=$2;
     print "KEY $k VALUE $v\n";
     print $string, "\n";
     print 'Off='.(pos $string)."\n";
 }
 --
 Best regards,
   Konstantin.
 Brainbench MVP for perl
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    странное это ваше /g ;)   Ihar Mahaniok   03 Jul 2002 20:23:37   Re: странное это ваше /g ;)   Konstantin Stupnik   04 Jul 2002 09:36:06   странное это ваше /g ;)   Ihar Mahaniok   04 Jul 2002 11:52:46   Re: странное это ваше /g ;)   Artem Chuprina   04 Jul 2002 14:07:40   странное это ваше /g ;)   Andrew Alakozow   05 Jul 2002 10:35:11