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 <[email protected]>写道：
> 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 <[email protected]>
>
>> 下面代码是在别人脚本(test.pl)中看到的，有几个问题，希望达人给解答一下。 多 谢！
>>
>> ==========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为例来解读这段代码。
>>
>> 1、我查看了perldoc Getopt::Long，大体知道 fileformat是在命令 行中 使用的参数，应当 是一个string
>> ，然后传递到程序内部时由$Fileformat接 收这个值。是这样么？有没有误读？
>>
>> 2、但是为什么是\$Fileformat，一个reference呢？写成"fileformat:s"=>$Fileformat可 不
>> 可以，为什么？二 者什么区别？
>>
>>
>> 3、另外，为什么参数开关使用了fileformat，在内部就不能使用$fileformat， 而是换成$Fileformat呢？ 在test.pl内
>> 部并没有占用$fileformat这个变量啊？
>>
>> 4、在命令行中运行此程序时，带开关的参数传到程序内部由GetOptions来处理，没有被参数开关指定的参数都保存进@ARGV？
>>
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。
> 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
--
woosley.xu. http://twitter.com/redicaps
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
