perl - 如何在 Perl 中处理文件路径？

Question

我有以下脚本，用于读取给定路径中的文件！在这个脚本中，让我们假设路径如下

chdir("/usr/test1/street/accounts/goal/routecab/Prpbict")

工作得很好但是

chdir("/usr/test1/street/accounts/goal/routecab/EventDir") 

目录没变！谁能告诉我原因！

运行

dir_name=Event\ Based\Mailers_Registration_Welcome.htm

在将 dir_name 附加到工作目录之后，它似乎：$main_dir=/usr/test1/site/accounts/coach/rulecab/Event\ Based\ Mailers_Registration_Welcome.htm 运行后：- chdir($main_dir);printpwd;它会单独打印这个剩余路径我的意思是 dir_name /usr/test1/site/accounts/coach/rulecab

Answer 1

我假设您的路径周围有引号？

要找出chdir失败的原因，您应该写

chdir '/usr/test1/street/accounts/goal/routecab/EventDir'
        or die "Unable to chdir: $!";

perl 会告诉你原因。