Исходное сообщение
"Поиск фразы в строке" Отправлено madskull, 29-Апр-05 23:00
>Задачу выставленную в предыдущем вопросе в принципе решил... >думаю что коряво=( >посмотрите этот с позволения сказать код > >chop($f[$m+1],$f[$m+2],$f[$m+3]); > >$loc1=index(($f[$m+1].$f[$m+2].$f[$m+3]), "<TD>"); > >$loc2=index (($f[$m+1].$f[$m+2].$f[$m+3]),"</A>"); > >$hh=substr(($f[$m+1].$f[$m+2].$f[$m+3]),$loc1,$loc2+4); > >print "$hh \n"; > Как тут любят говорить некоторые - фтопку :) Некрасиво и не по "перловому". >Може ткто предложит более изящное решение? >а то я как то в регулярных выражениях - пас=( А вот это зря. СтОит потратить день на изучение регекспов и жизнь будет намного проще :) Что такое $f[$m+1].$f[$m+2].$f[$m+3]? Получение строки, в которой искать? ($hh) = join("",@f[$m+1..$m+3]) =~ m#<TD>(.+?)</A>#; print "$hh \n";

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>Задачу выставленную в предыдущем вопросе в принципе решил... >>думаю что коряво=( >>посмотрите этот с позволения сказать код >> >>chop($f[$m+1],$f[$m+2],$f[$m+3]); >> >>$loc1=index(($f[$m+1].$f[$m+2].$f[$m+3]), "<TD>"); >> >>$loc2=index (($f[$m+1].$f[$m+2].$f[$m+3]),"</A>"); >> >>$hh=substr(($f[$m+1].$f[$m+2].$f[$m+3]),$loc1,$loc2+4); >> >>print "$hh \n"; >> > Как тут любят говорить некоторые - фтопку :) > Некрасиво и не по "перловому". >>Може ткто предложит более изящное решение? >>а то я как то в регулярных выражениях - пас=( > А вот это зря. СтОит потратить день на изучение регекспов и жизнь > будет намного проще :) > Что такое $f[$m+1].$f[$m+2].$f[$m+3]? > Получение строки, в которой искать? > ($hh) = join("",@f[$m+1..$m+3]) =~ m#<TD>(.+?)</A>#; > print "$hh \n";
	Введите код, изображенный на картинке: