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

  #9  
Старый 03.05.2008, 17:14
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами: 10393869

Репутация: 2032


По умолчанию
while($text=~/http:\/\/www\.(\S+)/ig)
print $1;
 
Ответить с цитированием