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

質問

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

回答No.1

agharta · ベストアンサー

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

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で/毎に分割して配列に保存の後、３つ目の添え字までをつなぐのですね。言われると「はぁはぁ」と納得します。
ありがとうございました。

回答No.2

moon_night

こんな感じで。

$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";

お礼

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