Forum Webscript.Ru

Программирование => Perl => Тема начата: AST от 30 Января 2003, 01:35:06

Название: Вопрос бо работе со строками
Отправлено: AST от 30 Января 2003, 01:35:06

Здравствуйте. Я чайник в перле, так что извините за простой вопрос :)
Есть некая переменная $url, её значение приблизительно такое: http://192.166.33.44/pam/tram/file.ext, а мне надо оставить в ней http://192.166.33.44/pam/tram/, т.е. убрать все что после последнего слеша.
Помогите пожалуйста

Название: Вопрос бо работе со строками
Отправлено: YA от 30 Января 2003, 08:45:34

Цитировать

убрать все что после последнего слеша

$url=~s/[^\\/]+$//;

Но перед этой строкой стоит добавить такую проверку:
$url.="/" if $url=~/^http:\\/\\/[^\\/]+$/; # для адресов типа "http://192.166.33.44"

Название: Вопрос бо работе со строками
Отправлено: AST от 30 Января 2003, 11:36:26

Спасибо большое