Windows 如何在perl中从当前工作目录向后移动一级

我试图从当前的工作目录向后移动一个级别，但没有成功

use strict;
use warnings;
use Cwd qw();
my $path = Cwd::cwd();
print "Debug : $path\n";

从上面的代码中，我可以得到当前的工作目录，但需要返回到下一级

Exp: 当前工作目录='C:/abc/tmp/文件夹'

---

所需目录='C:/abc/tmp'

查看。检查“fileparse（）”或“dirname（）”方法。

您需要实际尝试转到上面的目录，即使用

。

某处

---

您不需要任何模块来更改当前工作目录。只是

chdir '..';

我会做你需要的

---

是一个内置运算符，因此不需要安装任何东西。

我不确定Perl chdir（）函数是否接受“.”参数。如果是 如果有，您可以：

chdir("..");

查找目录

如果没有，您必须执行以下操作：

$currdir = `pwd`; chomp $currdir; # gets current directory
$currdir =~ s/ \/[^\/]+$//; # removes the last / and everything after it
chdir($currdir);

---

您想要当前目录还是脚本所在的目录？

$currdir = `pwd`; chomp $currdir; # gets current directory
$currdir =~ s/ \/[^\/]+$//; # removes the last / and everything after it
chdir($currdir);