Perl命令行：目录参数

问题描述

| 我在理解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;

根据对目录使用单引号还是双引号，会得到不同的结果。如果我用ѭ1调用它，它会显示\“ \'H：\\ Test！\'不存在\”。但是，如果我用

\'perl script.pl \"H:\\Test!\"

称呼它，就可以了。为什么会这样呢？     

解决方法

        在命令行上，引用规则是外壳程序的权限，而不是程序（perl）的权限。 Unix shell的规则与Perl的规则相似（双引号对变量进行插值，单引号不对），但Windows“ shell”具有不同的规则。一些主要区别是： 单引号

\'

不是特殊字符

C:>\\ dir > \'foo\'

将创建一个名为“ 5”的文件（引号将包含在文件名中）

\"\"

双引号插入类似于

%NAME%

的环境变量，但不会尝试将perl标量变量名称解释为环境变量：

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

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

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

Hello world

即使我忘记使用第二个双引号，此方法仍然有效。     ,        这与Perl解释器无关。它是解释命令及其参数的外壳。 当提供双引号的参数（例如

\"H:\\Test!\"

）时，shell会将引号内的所有内容都视为字符串的内容，传递给Perl解释器的是不带引号的字符串。 相比之下，当您提供

\'H:\\Test!\'

时，shell会将单引号作为字符串本身的一部分，并以这种方式将其传递给Perl解释器。     ,        由于驱动器号的原因，我认为您是在Windows下工作的。然后，您只需要接受，双引号是唯一的引号。     ,        请考虑使用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