Однострочник для извлечения принадлежащих одному домену ссылок из HTML и обычного текста

[shoorick]

perl -nle 'print $1 while m!(http://example.com/[^" >]+)!g'
Для входящих данныхone and two
http://example.com/first and http://example.com/second
none
возвращаетhttp://example.com/one
http://example.com/two
http://example.com/first
http://example.com/second
В виде обычного перлового скрипта - на гитхабе.