为什么当我从 Windows 运行 Perl 脚本时找不到该文件？

Question

我有一个 Perl 脚本，它是使用 Perl 5.8 在 Linux 平台上构建的。但是现在我尝试在 Windows 平台命令提示符下使用相同的 Perl 版本运行 Perl 脚本。

我正在使用这个命令 perl rgex.pl 但是它给了我一大堆错误，在我看来它已经在脚本本身中得到了解决。奇怪的是，我能够毫无问题地运行另一个 Perl 脚本，其中包含简单的功能，如打印、输入等。

代码：

#!/usr/bin/perl

use warnings;
use strict;
use Term::ANSIColor;

my $file = "C:\Documents and Settings\Desktop\logfiles.log";
open LOG, $file or die "The file $file has the error of:\n =>  $!";

my @lines = <LOG>;
close (LOG);

my $varchar = 0;

foreach my $line ( @lines ) {
if ( $line =~ m/PLLog/ ) 
{
    print("\n\n\n");
my $coloredText = colored($varchar, 'bold underline red');
print colored ("POS :: $coloredText\n\n", 'bold underline red');
$varchar ++;        
}
print( $line );
}

当我在 Windows 命令提示符下运行时，它会给出错误，例如：

• 无法识别的转义 \D 通过 at rgex.pl 第 7 行。
• => rgex.pl 第 8 行没有这样的文件或目录。

请就代码提供一些建议。谢谢。

Answer 1

Perl 字符串中用双引号括起来的 \ 标记转义序列的开始，例如 \n 表示换行符，\t 表示制表符。由于您希望按字面意思处理 \ ，因此需要像 \\ 一样转义 \ ：

my $file = "C:\\Documents and Settings\\Desktop\\logfiles.log";

因为您没有在字符串中插入任何变量，所以最好使用单引号：（

my $file = 'C:\Documents and Settings\Desktop\logfiles.log';

在单引号内， \ 并不特殊，除非下一个字符是反斜杠或单引号。）

Answer 2

这些错误消息非常清楚。它们准确地告诉您问题出在哪一行（与某些错误消息不同，它们通过“嘿，等一下！”告诉您 Perl 首先在哪一行）。

当您遇到此类问题时，请将程序缩减为仅存在问题的行并开始处理它们。首先从第一个错误开始，因为它们通常会级联到您稍后看到的错误。

当您想检查获得的值时，打印它以确保它是您所认为的那样：

 my $file = "C:\\D....";
 print "file is [$file]\n";

这会很快向您表明 $file 存在问题，一旦您知道问题出在哪里，你就可以最大程度地解决问题。

这只是基本的调试技术。

另外，您还缺少相当多的基础知识，因此阅读一个好的 Perl 教程将对您有很大帮助。 perlfaq2 或 perlbook。您遇到的许多问题都是学习 Perl 的前几章中要解决的问题。