为什么我的文件句柄 chdir 在 Perl 中不起作用？

Question

当我尝试使用文件句柄作为参数的“chdir”时，“chdir”返回 0 并且 pwd 返回相同的目录。应该是这样吗？

我尝试了这个，因为在 chdir 的文档中我发现：

“在支持 fchdir 的系统上，您 可能传递文件句柄或目录 处理作为参数。在系统上 不支持 fchdir、传递句柄 在运行时产生致命错误。”

稍后给出：

#!/usr/bin/perl -w
use 5.010;
use strict;
use Cwd;

say cwd();  # /home/mm
open( my $fh, '>', '/home/mm/Documents/foto.jpg' ) or die $!;
say chdir $fh;  # 0
say cwd();  # /home/mm

我认为这可能会 chdir 到文件的目录 - 但这里对我来说没有 DWIM。

Answer 1

它还表示

It returns true upon success, false otherwise.

您对 chdir 的调用失败。检查 $! 变量以获取有关发生情况的线索。由于您没有遇到致命的运行时错误，因此您不必担心最后一段有关 fchdir 的问题。

---

运行几个测试，我发现当 FILEHANDLE 引用目录而不是常规文件时，chdir FILEHANDLE 可以工作。希望有帮助：

  open(FH, "<", "/tmp/file");  # assume this file exists
  chdir FH and print "Success 1\n" or warn "Fail 1: $!\n";
  open(FH, "<", "/tmp");
  chdir FH and print "Success 2\n" or warn "Fail 2: $!\n";
  opendir(FH, "/tmp");
  chdir FH and print "Success 3\n" or warn "Fail 3: $!\n";

 

  Fail 1: Not a directory
  Success 2
  Success 3

Answer 2

哪个版本的 perl？哪个操作系统？

Windows 上的 5.10.1：

#!/usr/bin/perl

use strict; use warnings;

# have to use a file because Windows does not let 
# open directories as files
# only done so I can illustrate the fatal error on
# a platform where fchdir is not implemented

open my $fh, '<', 'e:/home/test.txt'
    or die "Cannot open file: $!";

chdir $fh
    or die "Cannot chdir using filehandle: $!";

输出：

C:\Temp> k
The fchdir function is unimplemented at C:\Temp\k.pl line 9.

Linux 上的 5.10.1（/home/sinan/test 是一个目录）：

$ cat k.pl
#!/usr/bin/perl

use strict; use warnings;

use Cwd;

open my $fh, '<', '/home/sinan/test'
    or die "Cannot open file: $!";

chdir $fh
    or die "Cannot chdir using filehandle: $!";

print getcwd, "\n";

$ ./k.pl
/home/sinan/test

Answer 3

对我有用。 Windows 不支持 fchdir，它实际上是一个致命错误：

perl -we"opendir my $fh, 'temp'; chdir $fh or print 'foo'"

产生一个致命错误。因此，看起来在根本不支持 fchdir 的系统上，它可以按照规范运行。看起来措辞可以澄清，尤其是“可能”一词。