如何在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);print pwd ;它将打印此单独的剩余路径我的意思是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会告诉你原因。