(Perl) Как убрать слэш в конце URL в переменной?

Help, please. Посетитель вводит в форму URL со слэшем на конце, типа http://xxx.ru/ , это сохраняется в переменной $url и записывается в файл, но в файл нужно записать без слэша на конце, но сохранив остальные, типа http://xxx.ru . Помогите убрать последний слэш из переменной! Заранее большое спасибо!

$url =~ s{/+$}{};

if (substr($url, -1) == '/') {
    $url = substr($url, 0, -1);
}

GetAnswer

if (substr($url, -1) == '/') { $url = substr($url, 0, -1); }

...при таком сравнении условие всегда истино, так как 0==0...

if (substr($url, -1) eq '/') {
    $url = substr($url, 0, -1);
}

Премного благодарен! Все получилось!

g613

if (substr($url, -1) == '/') { $url = substr($url, 0, -1); } ...при таком сравнении условие всегда истино, так как 0==0...

Причём тут 0==0???????????? конструкция substr($url, -1) возвращает последний символ строки, а никак не цифу. Вообще не понял твоего комментария, и что такое "eq"??????????

GetAnswer

g613 if (substr($url, -1) == '/') { $url = substr($url, 0, -1); } ...при таком сравнении условие всегда истино, так как 0==0... Причём тут 0==0???????????? конструкция substr($url, -1) возвращает последний символ строки, а никак не цифу. Вообще не понял твоего комментария, и что такое "eq"??????????

...это я к тому, что на перле пишем, а не на сях...

`==` в частности ,желает увидеть numeric аргумент, в какое `число` преобразуется и последний символ извлекаемый substr и символ справа от '==' , пусть будет домашним заданием...

perldoc perlop