Perl 正規表現 についての質問です。


以下の文字の羅列が数種類あります。

<a href="http://www.hokudai.ac.jp/" gping="/GLinkPing.aspx?/_1_9SE/1?http://www.hokudai.ac.jp/&amp;&amp;
DI=253&amp;IG=72ebd331dfe44768b0c8d1dfb352cfbc&amp;POS=4&amp;
CM=WPD&amp;CE=1&amp;CS=AWP&amp;SR=1&amp;sample=0">

<a href="http://www.hokudai.seikyou.ne.jp/" gping="/GLinkPing.aspx?/_1_9SE/1?http://www.hokudai.seikyou.ne.jp/&amp;&amp;
DI=253&amp;IG=72ebd331dfe44768b0c8d1dfb352cfbc&amp;POS=5&amp;
CM=WPU&amp;CE=1&amp;CS=AWP&amp;SR=2&amp;sample=0">

上記の文字列から、http://www.hokudai.ac.jp/ や http://www.hokudai.seikyou.ne.jp/ を
抜き出すにはどうしたらいいでしょうか?

よろしくお願いいたします。

回答の条件
  • URL必須
  • 1人20回まで
  • 登録:2007/04/09 18:11:45
  • 終了:2007/04/16 18:15:03

回答(1件)

id:b-wind No.1

b-wind回答回数3344ベストアンサー獲得回数4402007/04/09 18:23:52

ポイント60pt

手っ取り早いのは、

$text = q|<a href="http://www.hokudai.ac.jp/" gping="/GLinkPing.aspx?/_1_9SE/1?http://www.hokudai.ac.jp/&amp;&amp;
DI=253&amp;IG=72ebd331dfe44768b0c8d1dfb352cfbc&amp;POS=4&amp;
CM=WPD&amp;CE=1&amp;CS=AWP&amp;SR=1&amp;sample=0">|;
$text =~ m/href="(.*?)"/;
$url = $1;

かな。

http://q.hatena.ne.jp/answer

id:zachouR

毎度毎度ありがとうございます!

非常に助かりました!

2007/04/09 18:31:16

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません