以下のあるテキストデータがあって、
//wrs.search.yahoo.co.jp/S=2114736003/K=%E3%81%8D%E3%82%8A%E3%82%93%E5%BA%A7/v=2/SID=w/l=WS1/R=2/IPC=us/SHE=0/H=0//SIG=11p8an274/EXP=1171686616/*-http%3A//d.hatena.ne.jp/camelopardalis/index.html
となっていた場合、後ろの部分の、「d.hatena.ne.jp/camelopardalis/index.html」がほしい場合は
どのようにしたらいいでしょうか?
自分はもう、後ろから一字づつしらみつぶしに調べていく方法しかわかりません。
どなたか、よい案がありましたら、教えてください。
よろしくお願いします。
はい、これは一行です。
ありがとうございます。
以下のようなやり方ではいかがでしょうか。
(最後のスラッシュ2個の後ろの値を取得します。)
#! /usr/bin/perl use strict; use warnings; my $str = "//wrs.search.yahoo.co.jp/S=2114736003/K=%E3%81%8D%E3%82%8A%E3%82%93%E5%BA%A7/v=2/SID//=w/l=WS1/R=2/IPC=us/SHE=0/H=0//SIG=11p8an274/EXP=1171686616/*-http%3A//d.hatena.ne.jp/camelopardalis/index.html"; $str =~ m{^.*//(.*?)$}; print $1;
正規表現に関しては、この本が参考になります。
ありがとうございます。
うまくいきました。
ご紹介された本は購入しています。分厚くて頭がくらくらしそうです(;;)
いつも、ありがとうございます。
参考にさせていただきます。
はい、これは一行です。
ありがとうございます。