|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Ђ¤аҐ© џжҐЄ® 2:5020/400 11 Mar 2001 13:56:50 To : Anton Rusakov Subject : Re: regexp -------------------------------------------------------------------------------- Привет Anton, Вы тут на днях писали: AR> Вобщем вопрос простой, имеется строка вида AR> text1/text2/text3 AR> как удалить последний текст и слэш? $source = "text1/text2/text3"; @field = split(/\//, $source); $field[-1] = undef; $final= join('/', @field); chop($final); print $final; вот так вот можно, правда у меня сомнения есть, что это самый нормальный вариант.. :) Андрей Яценко. -- Отправлено через сервер Talk.Ru - http://www.talk.ru --- ifmail v.2.15dev5 * Origin: viaTeam (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/64883c91eb47.html, оценка из 5, голосов 10
|