如何解决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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。