[Perl] [Регулярные выражения] Что делает этот код?

берет $pdiff->{Page} и заменяет / на _ ?

отлично, значит оно заменяет разделители в полном пути на знаки подчеркивания.

надеюсь под ActivePerl Win32 слэши правильно понимаются

под виндой вроде как обратные слэши в путях используются

Я бы сказал, что результат этой замены сохраняется в $trfn.

>Я бы сказал, что результат этой замены сохраняется в $trfn.
ну, я в этом не был до конца уверен ^_^

Не печатает.

Там все просто. Выражение в скобках вычисляется первым и возвращает результат присваивания, т.е., $trfn. А дальше идет замена.

>под виндой вроде как обратные слэши в путях используются

Под виндой что в перле что жабе что в пистоне что в цыгвине можно писать и так и эдак.

оффтоп: как в гололву могу прийти использование обратных слешей? вот подумалось - обратные слеши вообще в чем нибудь нормальном используются? они вообще нужны? разве что для ascii art только.

> как в гололву могу прийти использование обратных слешей?

А какая разница?

>отлично, значит оно заменяет разделители в полном пути на знаки подчеркивания.

Лучше менять слеши на знак вопроса (кроме url). Это застрахует от случайных ошибок, если в "пути" уже будут содержаться знаки подчеркивания:

/dir/some_dir/dir
c:\dir\some_dir\dir

Проверил, в линукс знак вопроса не проблема, поэтому меняй-неменяй..
В винде раньше так постоянно делал, но с учетом, не пропускать через простой for (что б "?" не стал подстановкой), только через for /f

> А какая разница?

Неудобно, т.к. в C-строках (и много где еще) обратный слеш - это escape-символ.