在 2011年11月6日 下午8:21，woosley. xu. <redicaps@gmail.com>写道：
Getoptions函数需要把你的参数值传递给给$fileformat，所有要引用
比如
#!/usr/bin/perl -w
use warnings;
my $a;
sub changeValue($){
my $lo = shift;
$$lo = 5;
}
sub badChangeValue($){
my $a = shift;
$a = 5;
}
badChangeValue($a);
print $a;
changeValue($a);
print $a;
changeValue(\$a);
print $a;
woosley@woosley-PC ~
$ perl t.pl
Use of uninitialized value $a in print at t.pl line 15.
Use of uninitialized value $a in print at t.pl line 17.
5在 2011年11月6日 上午11:04，Dejian Zhao <dejian.zhao@gmail.com>写道：
Q2：好像明白了，是命令行参数引用了脚本内部的$Fileformat地址，谁引用谁都一样，操作的是同一块内存地址。
perl -le 'my $a=1;my $b=\$a; $$b=5;print $a'
输出结果是5，而不是1。
命令行参数就相当于这里的$b，脚本内部的变量就相当于$a，给命令行参数传递值时就直接修改了脚本内部变量的值。
On 2011-11-6 10:56, Dejian Zhao wrote:Q1,Q3,Q4都解决了，Q2还是不太明白。
Q2：将\$Fileformat改成$Fileformat是不可以的，会报错“Undefined argument in option spec”，现在的问题是谁引用谁？我觉得应当是脚本内部的变量$Fileformat去引用命令行参数，应当是$Fileformat应当指向 命令行参数fileformat的内存地址，但是从语法上讲，似乎是$Fileformat被引用，是命令行参数引用 了$Fileformat？ 难道谁引用谁都一样，实际是操作同一块内存地址？
Q3: 原来"fileformat:s"=>\$Fileformat可以写成"fileformat:s"=>\$fileformat (当然前提是把my $Fileformat改为my $fileformat)，我看到的脚本中都是左侧用小写，右侧把第一个字母大写，就产生了误解。可能是个人习惯的问题吧，我更喜欢写 成"fileformat:s"=>\$fileformat。
Q4: 测试了，是这样子的。其余参数保存进了@ARGV
On 2011-11-6 6:47, Michael Zeng wrote:perldoc GetOpt::Long 应该能看懂啊，不过manual很多，我记得我来回答下1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令行中使用的参数，应当 是一个string，然后传递到程序内部时由$Fileformat接收这个值。是这样么？有没有误读？左边是命令行要出现的东西， 右边是自己输入的参数，比如 这个脚本用做test.pl -fileformat AAA -cutoff BBB -verbose CCCC -help DDD ,命令行输入的AAA, BBB, CCC , DDD 自动的被替换成那 4 个变量， 从而被获取，2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=& gt;$Fileformat可不可以，为什么？二 者什么区别？是用引用，一般都是引用，是一个指针的东西，3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat，而是换 成$Fileformat 呢？ 在test.pl内 部并没有占用$fileformat这个变量啊？脚本一开始应该定义 了 my ($Fileformat,$Cutoff,$Verbose,$Help); 了，当然是只能用这些变量，4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进 @ARGV？这个不记得，应该是，再多看看 manual，
2011/11/6 Dejian Zhao <dejian.zhao@gmail.com>
下面代码是在别人脚本(test.pl)中看到的，有几个问题，希望达人给解答一下。 多 谢！1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令 行中 使用的参数，应当 是一个string，然后传递到程序内部时由$Fileformat接 收这个值。是这样么？有没有误读？
==========test.pl========
use strict;
use Getopt::Long;
my ($Fileformat,$Cutoff,$Verbose,$Help);
GetOptions(
"fileformat:s"=>\$Fileformat,
"cutoff:s"=>\$Cutoff,
"verbose"=>\$Verbose,
"help"=>\$Help
);
die `pod2text $0` if (@ARGV == 0 || $Help);
=========================
主要是GetOptions()里面的部分看 不懂，以 "fileformat:s"=>\$Fileformat为例来解读这段代码。
2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=>$Fileformat可 不 可以，为什么？二 者什么区别？
3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat， 而是换成$Fileformat呢？ 在test.pl内 部并没有占用$fileformat这个变量啊？
4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进@ARGV？
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
woosley.xu. http://twitter.com/redicaps
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
Thanks!
O(∩_∩)O
--Try my best to do everything!--
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
博文
没有评论:
发表评论