为什么输出6 3 2 3 求解答

317550564

sub foo {
qw/ 2 4 6 /
}
sub bar {
@a = qw/ 2 4 6 /
}
my ($f1, $f2, $b1, $b2);
$f1 = foo();
($f2) = foo();
$b1 = bar();
($b2) = bar();
  print "$f1 $f2 $b1 $b2";

输出6 2 3 2     

sjdy521

你先把你认为正确的说出来。。把你认为错误的也说出来。
说出你的想法，不是直接问为什么。不然大家搞不清楚你到底哪里不明白了

317550564

回复 2# sjdy521


    $f1 = foo();
这里我觉得应该是返回列表长度3。

MMMIX

回复 1# 317550564


    See 'Scalar values' and 'List value constructors' in perldata

yybmsrs

这道题也不错

羲之遗韵

学习！
See 'Scalar values' and 'List value constructors' in perldata

lpnueg4

数组，列表的区别！

hxm4321

本帖最后由 317550564 于 2012-04-24 23:06 编辑


sub foo {
qw/ 2 4 6 /
}
sub bar {
@a = qw/ 2 4 6 /
}
my ($f1, $f2, $b1, $b2);
$f1 = foo();
($f2) = foo();
$b1 = bar();
($b2) = bar();
  print "$f1 $f2 $b1 $b2";

$f1是一个标量，那么函数foo()就会返回一个标量值，默认情况下，最后一个值就是返回值，就是6喽
($f2)是一个列表，但是只能存进去一个元素，只能存第一个喽，就是2喽
由于bar中最后一个元素是一个列表。而如果用标量来存储，就是列表的长度，就是3喽
($b2)是列表，只能存进一个元素

wonderall01

8楼分析的精辟，正解。

pengphy

回复 4# MMMIX


    List value constructors
       List values are denoted by separating individual values by commas (and enclosing the list in parentheses where
       precedence requires it):

           (LIST)

       In a context not requiring a list value, the value of what appears to be a list literal is simply the value of the
       final element, as with the C comma operator.  For example,

           @foo = ('cc', '-E', $bar);

       assigns the entire list value to array @foo, but

           $foo = ('cc', '-E', $bar);

       assigns the value of variable $bar to the scalar variable $foo.  Note that the value of an actual array in scalar
       context is the length of the array; the following assigns the value 3 to $foo:

           @foo = ('cc', '-E', $bar);
           $foo = @foo;                # $foo gets 3