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

Тема: [Perl] Новичкам: задаем вопросы

Показать сообщение отдельно

#1002

24.03.2009, 15:23

akil

Новичок

Регистрация: 03.11.2007

Сообщений: 9

С нами: 9748340

Репутация: 12

можно если написать

Код:

while($get->content){
  if (/<a href=\"(.*)\">/)
  {
     print "$1\n";
  }
}