Perl 命令行：目录参数的单引号和双引号

Question

我无法理解 Windows 中 perl 的命令参数引用。使用以下程序：

use strict;
use warnings;
use File::Find;
use File::Copy;

my $dir = shift;

die 'Usage: perl Folderize.pl <directory>' unless $dir;

die "$dir doesn't exist" unless -d $dir;

根据我对目录使用单引号还是双引号，我会得到不同的结果。如果我用'perl script.pl 'H:\Test!' 调用它，它会打印“'H:\Test!'不存在”。但是，如果我用'perl script.pl "H:\Test!" 调用它，它就可以正常工作。为什么会这样？

Answer 1

在命令行上，引用规则是 shell 的权限，而不是程序 (perl)。 Unix shell 的规则类似于 Perl 的规则（双引号插入变量，单引号不插入），但 Windows“shell”有不同的规则。一些主要区别是：

• 单引号'不是特殊字符

  C:>\ dir > 'foo'

将创建一个名为 'foo' 的文件（引号将包含在文件名中）

• "" 双引号插入看起来像%NAME% 的环境变量，但它不会尝试将 perl 标量变量名称解释为环境变量：

  C:>\ perl -e "print '%PATH'"

• 如果您忘记了，Windows shell 将为您“关闭”您的报价

  C:>\ perl -e "print qq/Hello world/

  Hello world

即使我忘记使用第二个双引号，这仍然有效。

Answer 2

这与 Perl 解释器无关。它是解释命令及其参数的 shell。

当您提供双引号参数时，例如 "H:\Test!"，shell 将引号内的所有内容视为字符串的内容，传递给 Perl 解释器的是不带引号的字符串。

相比之下，当您提供'H:\Test!' 时，shell 将单引号作为字符串本身的一部分，并以这种方式将其传递给 Perl 解释器。

Answer 3

由于驱动器号，我假设您在 Windows（拇指）下工作。然后你必须接受，双引号是唯一的引号。

Answer 4

请考虑使用 Getopt::Long 而不是自己进行参数解析

http://perldoc.perl.org/Getopt/Long.html

    use Getopt::Long;


    GetOptions
    (
        'dir=s' => \$dir,
    ) or die ("Couldnot process arguments");

在这种情况下，无论用户是否有目录，dir 都会有目录

    yourscript.pl -dir = foo
    yourscript.pl -dir  "foo"
    yourscript.pl -dir  foo

如果你这样做

    GetOptions
    (
        'dir=@s' => \@dir,
    ) or die ("Couldnot process arguments");

你会得到一个普通的旧数组中的所有目录

yourscript.pl -dir  foo -dir blah