一番後ろのスラッシュ以降を削除する

質問

お世話になります。Perlで
$URL=$in{'URL'};
でHTMLフォームからホームページアドレスを取得するとします。

これが
http://yahoo.co.jp/index.html なら
http://yahoo.co.jp/　のみに

http://yahoo.co.jp/nanka/toarru.html なら
http://yahoo.co.jp/nanka/　のみに

もちろん
http://yahoo.co.jp/　ならそのままに
$URLの値を変更したいのですが、どうしたらよいのでしょう。
サンプルコードなどで解説お願いします。

回答No.1

karumakaruma · ベストアンサー

こんなんでいいと思いますよ

$URL = "http://aaa.bbb.ccc/aaaa/bbbb/";
$aaa = substr($URL, 0, rindex($URL,"/")+1);

お礼

初心者の私にはすごく分かり易いコードです。
ありがとうございます。

回答No.3

Tacosan

$URL =~ s![^/]*$!!;

補足

むっちゃ正規表現
はははっ・・・もう判らない。
ありがとうございました。

回答No.2

venzou

my ($path) = $URL =~ m|(.*/)|;

こんな感じでどうでしょう？

お礼

これもなんとなく判ります。
ありがとうございました。