URL末のスペースを削除したいのですが・・・。

質問

掲示板を作成しています。
URLの最後に半角／全角問わずスペースが入っている場合削除を行いたいのですが、うまくできません。
有識者様ご教授をお願いできないでしょうか？
最低でも以下のパターンがあると思いますが、上手くできない状況です。

my($url1) = 'http://www.yahoo.co.jp '; # 末が半角スペース
my($url2) = 'http://www.goo.ne.jp　　'; # 末が全角スペース
my($url3) = 'http://www.google.co.jp 　　'; # 末が全角／半角スペースごちゃごちゃ

回答No.1

BLUEPIXY · ベストアンサー

my($url1) = 'http://www.yahoo.co.jp '; # 末が半角スペース
my($url2) = 'http://www.goo.ne.jp　　'; # 末が全角スペース
my($url3) = 'http://www.google.co.jp 　　'; # 末が全角／半角スペースごちゃごちゃ
foreach my $url ($url1,$url2,$url3){
$url =~ s/[ 　]*$//;#半角スペースか、全角スペースが文字列の最後まで繰り返しあるのを削除
print "<$url>\n";#何も付いていないのを確認
}

お礼

無事解決できました！
有難うございます＾＾