windows - 如何在 perl 中从当前工作目录后移一级

Question

我试图从当前工作目录后移一级，但没有成功。

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

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

经验: 当前工作目录 = 'C:/abc/tmp/folder' 所需目录 = 'C:/abc/tmp'

Answer 1

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

chdir '..';

会做你需要的。

chdir是内置运算符，因此无需安装任何内容。