3つ目のスラッシュまでを取り出す方法

例えばhttp://www.hoge.com/aaa/bbb.htmのような文字列データがあり、そこから３つめのスラッシュまでの
http://www.hoge.com/のみを取り出したい場合どうしたらよいのでしょうか？
言語はＰＥＲＬです。

No.1 ベストアンサー 回答者： agharta 回答日時： 2006/08/24 10:37

色々とあるでしょうけどこんなんは如何でしょうか

my $str = "http://www.hoge.com/aaa/bbb.htm?";
my @Arr = split(/\//, $str);

$ret = join('/', $Arr[0], $Arr[1], $Arr[2]) . "/";

print "[$ret]\n";

スマートじゃないっす

この回答へのお礼

なるほど・・・splitで/毎に分割して配列に保存の後、３つ目の添え字までをつなぐのですね。言われると「はぁはぁ」と納得します。
ありがとうございました。

お礼日時：2006/08/24 10:42

No.2 回答者： moon_night 回答日時： 2006/08/24 10:42

こんな感じで。

$url = 'http://www.hoge.com/aaa/bbb.htm';
if ($url =~ /(http:\/\/[^\/]*\/)/) {
$hit = $1;
}
print $hit;
print "<br>\n";

if ($url =~ /([^\/]*\/{3}?)/) {
$hit = $1;
}
print $hit;
print "<br>\n";

この回答へのお礼

ありがとうございました。

お礼日時：2006/08/24 10:43