古怪的问题，奇怪的输出

cheney_lang

初学perl，自己写了个测试例子，用来测试列表复制和列表在标量上下文中的值，但是结果无法理解，请大家指教一下。

my @socks = my ($a, $b) = qw /aaa/;
my $m = @socks;
print "\$m is : $m\n";

my $n = my ($c, $d) = qw /aaa/;
print "\$n is : $n\n";

suxingwakeup

友情提示：你没把结果贴出来。

hitsubunnu

没啥奇怪的

刚学理解不了上下文   就不要把程序写成一行

maybenot

原帖由 cheney_lang 于 2010-1-19 11:45 发表
初学perl，自己写了个测试例子，用来测试列表复制和列表在标量上下文中的值，但是结果无法理解，请大家指教一下。

my @socks = my ($a, $b) = qw /aaa/;
my $m = @socks;
print "\$m is : $m\n";

my $ ...

列表赋给标量是个数，
标量赋给列表只有第一个得到值，所以my ($a, $b) = qw /aaa/;$b为undef，但是之后还是会把这个undef给@sock的
列表赋给列表。。

learning perl里面有的

祝你好运

cheney_lang

原帖由 hitsubunnu 于 2010-1-19 12:01 发表
没啥奇怪的

刚学理解不了上下文   就不要把程序写成一行

我是为了更好的理解上下文才写成一行的，如果你能理解就请解释原因，给别人帮助，如果你自己都不懂的话这样说话有意思么？

dugu072_cu

my @socks = my ($a, $b) = qw /aaa/;
my $m = @socks;
$m 返回数组大小 2，很容易理解

my $n = my ($c, $d) = qw /aaa/;
$n 右边是个列表赋值，因此返回等号右边list的元素个数 1

兰花仙子

原帖由 maybenot 于 2010-1-19 12:07 发表

learning perl里面有的

嗯，看learning perl，要深入的看，边看边想。

dugu072_cu

原帖由 maybenot 于 2010-1-19 12:07 发表


列表赋给标量是个数，
标量赋给列表只有第一个得到值，所以my ($a, $b) = qw /aaa/;$b为undef，但是之后还是会把这个undef给@sock的
列表赋给列表。。

learning perl里面有的

祝你好运

你真的该看看 learning perl 了……

ttcn_cu

我也理解所谓初级Perl程序员写的代码要中级Perl程序员维护的道理了.
这种问题属于"需要掌握的知识么"?