Скрипт лежит в директории C:\Компаратор\Питер\script.pl

Нужно получить путь к папке C:\Компаратор\dumped
Эта папка находится на один уровень "выше" скрипта. 

Пишу:

($waytodump = $0) =~ s/(.+?)[^\\]+\\[^\\]+\.pl/$1\dumped/;

Переменной присваивается верное значение, но выдается предупреждение 
"Unrecognized escape \d passed through"

Как избежать этого предупреждения? (дополнительные модули кроме стандартных не использую).



Это сообщение отредактировал(а) Suppir - 14.4.2011, 14:19

это у вас за \d в правой части?

arto, 

имеем строку ($0):

C:\Компаратор\Питер\script.pl

из нее нужно сделать

C:\Компаратор\dumped


Регулярным выражением получаю "C:\Компаратор" и прикрепляю к нему "\dumped".
А Perl думает, что \d - это метасимвол.

Если заэкранировать:
($waytodump = $0) =~ s/(.+?)[^\\]+\\[^\\]+\.pl/$1\\dumped/;

то выдает C:\Компаратор\\dumped
(что неправильно)

Уберите обрытный слеш в правой части оператора замены, он там не нужен.