Perl chdir不工作

Question

之前的帖子可能会有用：Perl system() call failed with return code 65280

同样，我已经多次使用此代码，但它在这里不起作用。我已经将所有其他perl实例从PATH中移出。

来源：

$targetDir = "M\:\\bldforge_AOMS_DEV";
print ("targetDir=$targetDir\n");

chdir($targetDir) or die "Cant chdir to $dir $!";
$current_dir = `cd`;
print "\nCurrent dir = $current_dir\n" 

输出：

Z:\>ccperl test.pl
targetDir=M:\bldforge_AOMS_DEV

Current dir =

Answer 1

为了确保您确实处于ClearCase视图中，我将使用cleartool pwd

$current_dir = `cleartool pwd`;

即使在Windows上也能正常工作：

cleartool pwd命令列出当前工作目录。

此命令用于交互式cleartool和multitool会话，以及模拟交互式会话的批处理文件或外壳脚本。

Answer 2

您正在混淆cd和pwd。cd仅打印到标准，即以静默方式打印成功。

我的观点是，cd在您的情况下没有用处。

Answer 3

要获取当前工作目录，您应该使用Cwd的getdcwd函数：

use Cwd;

my $current_dir = getdcwd 'M:';