perlで指定か所のurlを取り出したいのですが

質問

下記のような文字列からhttp://.......jpや....pngなどの部分だけ抜き出したいのですがどうすればいいかわかりません。
どうすればいいでしょうか？？
<img src="http://i.yimg.jp/images/bloom/v201212/anonymous_24.png" width="24" height="24">
<img src="http://i.yimg.jp/images/clear.gif" alt="??????????????" width="1" height="1">
<img src="http://amd.c.yimg.jp/im_siggUafHxX5zBqYXXUl0MFuDGQ---x172-y200-q90/amd/20140212-00000043-dal-000-11-view.jpg" width="172" height="200" alt="???????????????????????????????????????????????????????" onContextMenu="javascript:return false;">
<img src="http://i.yimg.jp/images/news/cobranding/dal.gif" alt="????????????" width="170" height="40">
<img src="http://iwiz-talent.c.yimg.jp/im_siggAkAHOLx3UJ96IWzMLAa3aw---x80-y80-pril/o/talent/images/talent/201402/10/m07/m07-1255-140210.jpg" alt="???????????" border="0" width="80" height="80">
<img src="http://i.yimg.jp/images/news/v2/loading_32_b_2x.gif" width="32" height="32">
<img src="http://amd.c.yimg.jp/im_siggdUHHiAjMx0Vtxw6UiBjXGA---x49-y60-q90/amd/20140211-00000068-dal-000-8-view.jpg" alt="?????????????????????????????????Ф????????????">
<img src=" http://i.yimg.jp/images/evt/sochi/images/banner300x90.jpg" alt="????????????????????????" width="300" height="90">
<img src="http://lpt.c.yimg.jp/im_siggOxcR1sffKraZiSLM4Tvlwg---x60-y53-q90/amd/20140212-00000046-spnannex-000-thumb.jpg" alt="????????????μ???????????裲?????????Τ???">
<img src="http://lpt.c.yimg.jp/im_siggd24L.DRjsSsOFQzvcUudxA---x60-y40-q90/amd/20140212-00000104-scn-000-thumb.jpg" alt="???Ρ???????Ф???????????????????????">
<img src="http://lpt.c.yimg.jp/im_sigg5ySCgAEx9Mr.pAnTk_BLeA---x45-y60-q90/amd/20140211-00000010-tospoweb-000-view.jpg" alt="?????????????????????Ρ?????????">
<img src="http://lpt.c.yimg.jp/im_siggbLLaxB6uLw4PgQNbIotTPw---x57-y60-q90/amd/20140212-00000039-dal-000-view.jpg" alt="???????????????Τ????????????????????????????????????????">
<img src="http://amd.c.yimg.jp/im_sigg9vWalgQCOQonMxnTWgrpUg---x40-y60-q90/amd/20140211-00010000-jisin-000-2-view.jpg" alt="??????????????????????????????????????????">
<img src="http://i.yimg.jp/images/clear.gif" width="1" height="1" alt="?????????????">
<img src="http://i.yimg.jp/images/clear.gif" alt="???Υ???????????" width="1" height="1">
[Finished in 0.9s]

回答No.2

ORUKA1951 · ベストアンサー

img要素内のURLでしたら、
m/<img src="([^"]*)/
で良いでしょう。
Perlは最長マッチですので、
<img src="" width="" height="" alt=""><img src="" width="" height="" alt="">
のような場合・・最初のsrc="から行末の"にマッチチしないようにする必要があります。

回答No.3

Ogre7077

1. CPAN のモジュールで DOM とか スレイピング とかを導入
2. 文字列をHTMLとして解析する
3. 解析結果から、要素imgの属性srcを全て取得 (たとえばXPATHで "//img@src" とか)
4. src の中身をURIとして解析する
5. 解析結果から、ホスト名とかファイル名を取得

回答No.1

Tacosan

m/src="(.*?)"/;