|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Renat Araslanow 2:5011/119.1 06 Mar 2003 14:56:39 To : Andrew Afanasyev Subject : Подскажите, плз. -------------------------------------------------------------------------------- Однажды 05 Mar 03 23:13, Andrew Afanasyev писал All: AA> Как сделать такую вещь - нужно из относительного пути к файлу удалять AA> переходы вверх: "..". Cоответственно, регулярное выражение для этого должно AA> уметь обрабатывать такие варианты: AA> ..\dir\dir1\ -> ..\dir\dir1\ AA> ..\..\dir\..\ -> ..\..\ AA> dir\..\ -> "" AA> \..\dir1\..\ -> \..\ AA> Тривиальный способ: $str=~s/[^\\]+\\\.\.\\//g; обламывается на втором AA> варианте, и как это обойти, не совсем понятно. я так и не понял что тебе нужно (из чего и что получать), но, как вариант, посоветую использовать File::Spec конкретно функции splitdir catdir и no_upwards. будет и правильно и портабельно. --- [Преждевременная оптимизация -- корень всех зол Д. Кнут] * Origin: Чайник с программным управлениемЪ (2:5011/119.1) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/32783e670db0.html, оценка из 5, голосов 10
|