Тема
:
[Perl] Новичкам: задаем вопросы
Показать сообщение отдельно
#
6
20.04.2010, 20:33
life_glider
Познающий
Регистрация: 13.04.2010
Сообщений: 42
С нами:
8463290
Репутация:
81
to SeNaP:
$doc='<b><a class=link1 href="subkat.php?type=showsubkat&type2=1">ТЕКС Т1</a></b>';
if($doc=~/>([^<]+)<\/a/)
{
print $1;
}
else
{
die "error"
}
life_glider
Посмотреть профиль
Репутация
Отправить личное сообщение для life_glider
Найти все сообщения от life_glider
Добавить в друзья