my变量声明的问题

sai9924

#!/usr/bin/perl -w
package test;
sub new1 {
my ($one) = @_;
   my $name = $one->{"name"};
   print "is $name \n" ;
}

sub m1 {
   my ($obj) = { "name" => "baby" };
   bless($obj, "test");
   $obj->new1();
}
m1();

这里的($one)加了括号和不加括号有什么区别？？
$one不加括号就提示Use of uninitialized value in concatenation (.) or string，并且变量传不进来。
加上()括号就正常了。

哪位高手回答下为什么会这样？

vinian

1. my ($one)

复制代码

环境中$one处于一个列表环境，他会取@_的第一个元素

1. my $one

复制代码

环境中 $one处于标量环境，他会计算@_中元素的个数，然后将其传给$one

meihuaqi

简单的问题能不能不抢答。。。。
留给新人一点发挥的空间好不{:3_185:}

kk861123

这样写是有点绕,shift更常用吧

DIYBYPERL

简单的问题能不能不抢答。。。。
留给新人一点发挥的空间好不
meihuaqi 发表于 2011-01-02 13:35