ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Orlovsky Alexander                   2:5020/400     18 Apr 2003  21:40:56
 To : Yury Shvetsov
 Subject : Re: regular expression
 -------------------------------------------------------------------------------- 
 

 "Yury Shvetsov" <rmtech@marbella.net> wrote in message
 news:b7p7bf$2ch0$1@ddt.demos.su...
 
 > Hello, Alexander!
 > You wrote to Yury Shvetsov on Fri, 18 Apr 2003 13:57:50 +0000 (UTC):
 >
 >  ??>> $html =~ s/(value=$value)>/$1 selected>/;
 >  ??>>
 >  ??>> Он работает в случае, если
 >  ??>> $html = '<option value=1>first';
 >  ??>> $value = 1;
 >  ??>>
 >  ??>> Как написать код, чтобы он работал правильно и в таком случае:
 >  ??>> $html = "<option value='1'>first";
 >  ??>> и в первом случае, то есть без кавычек, если $value = '';
 >  ??>>
 >  AO> $html =~ s{(value=(:?$value|'$value'))>}
 >  AO>                   {\1 selected>};
 >
 > А вот ещё такой случай как обработать:
 > $html = "<option value='1' class='red'>first";
 > для случая, когда $value='';
 > ?
 > Кавычки вокруг '1' могут быть, а могут и не быть,
 > равно как и текст между '1' и '>'.
 
 дык с этого и надо было начинать :)
 
 $html =~ s{<[^>]*(value=(:?$value|'$value'))[^>]*>}
                  {\1 selected>};
 
 ой чуйствую что-то не так написал ;)
 а думать сейчас тяжело и лениво ;)
 Если что -- меня поправят :Р Соррьки
 
 З.Ы.
 развертка цикла здесь вроде как не нужна...кажется, т.к. экранированных
 символов < > ' " не придвидится или все-таки....Ой, ушел
 --- ifmail v.2.15dev4
  * Origin: Ye 'Ol Disorganized NNTPCache groupie (2:5020/400)
 
 

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