Тема: [Perl] Новичкам: задаем вопросы
Показать сообщение отдельно

  #5  
Старый 20.04.2010, 16:56
SeNaP
Участник форума
Регистрация: 07.08.2008
Сообщений: 281
С нами: 9347610

Репутация: 165
По умолчанию
if($doc =~ /|<a.+?>(.+?)<\/a>|/){
print "\n[+] $2 \n";
}else{
print "\nError\n";
}
т.е. так?
 
Ответить с цитированием