为什么此路径无法在 PERL 中打开 Windows 文件？

Question

我尝试使用 Strawberry Perl，但困扰我的事情之一就是读取文件。

我尝试这样做：

open(FH, "D:\test\numbers.txt");

但它找不到该文件（尽管该文件在那里，并且没有权限问题）。

等效代码（除文件名之外的脚本 100% 相同）在 Linux 上运行良好。

Answer 1

根据 Perl FAQ 5，您应该在 DOS/Windows 文件名中使用正斜杠（或者，作为替代方案，转义反斜杠）。

为什么我不能在 DOS 路径中使用“C:\temp\foo”？为什么 `C:\temp\foo.exe` 不起作用？

哎呀！您只需将制表符和换页符放入该文件名中即可！请记住，在双引号字符串（“like\this”）中，反斜杠是转义字符。这些的完整列表位于 perlop 中的 Quote 和 Quote-like Operators 中。毫不奇怪，您的旧 DOS 文件系统上没有名为“c:(tab)emp(formfeed)oo”或“c:(tab)emp(formfeed)oo.exe”的文件。

用单引号引用字符串，或者（最好）使用正斜杠。由于自 MS-DOS 2.0 等版本以来，所有 DOS 和 Windows 版本都在路径中将 / 和 \ 视为相同，因此您不妨使用不与 Perl 或 POSIX shell、ANSI C 和C++、awk、Tcl、Java 或 Python，仅举几例。 POSIX 路径也更可移植。

因此，您的代码应该是 open(FH, "D:/test/numbers.txt"); ，以避免尝试打开名为“D:est\numbers.txt”的文件 顺便说一句

---

，您可以通过使用词法（而不是全局命名）文件句柄（一种 3 参数形式的 open）来进一步改进您的代码，最重要的是，对所有 IO 操作进行错误检查，尤其是open() 调用：

open(my $fh, "<", "D:/test/numbers.txt") or die "Could not open file: $!";

或者，更好的是，不要在 IO 调用中硬编码文件名（以下做法可能会让您更快地找出问题）：

my $filename = "D:/test/numbers.txt";
open(my $fh, "<", $filename) or die "Could not open file $filename: $!";

Answer 2

当不需要插值时，切勿使用插值字符串！您正在尝试从 \t 和 \n! 打开一个包含制表符和换行符的文件名！

当您不需要（或想要）插值时，请使用单引号。

新手 Perl 程序员似乎遇到的最大问题之一是他们不假思索地自动使用“”来表示所有内容。您需要了解“”和“”之间的区别，并且在键入之前始终需要思考，以便选择正确的选项。这是一个很难养成的习惯，但如果你想写出好的 Perl 语言，这一点就至关重要。