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

  #1004  
Старый 24.03.2009, 17:09
roddik
Познающий
Регистрация: 14.01.2009
Сообщений: 93
С нами: 9116636

Репутация: 39
По умолчанию
Код:
my @arr = $get->content =~ /<a href=\"(.*)\">/g;
print join "\n", @arr;
 
Ответить с цитированием