Question

有人帮忙解释一下这个perl程序的问题么？

#!/usr/bin/perl -w

$a = qw( $sec $min $hour $mday $mon $year_off $wday $yday );

print qq($a\n);

以上这段程序运行后为什么打印结果是$yday？在我看来，等号右边是一个列表，左边是一个标量变量，它的值应该是列表中第一个标量才对啊？

Answer 1

请试一下：
$a = qw( $sec $min $hour $mday $mon $year_off $wday $yday );
($b) = qw( $sec $min $hour $mday $mon $year_off $wday $yday );
print qq($a\n);
print qq($b\n);

左边的标量，不带括号时，打印结果是右边列表中的最后一个；
然而，它带括号时，得到的赋值（打印结果）才是右边列表中的第一个。

Answer 2

$a = qw( $sec $min $hour $mday $mon $year_off $wday $yday );
应该等价于$a = "$sec,$min ......";吧.
这样把列表赋值给一个标量，标量会得到列表中的随机值。

Answer 3

左边是标量，赋值当然有问题
而且要搞明白qw的含义
$a=1;
$b=2;
@c = qw($a, $b);
print @c;
结果：$a,$b

$a=1;
$b=2;
@c = ($a, $b);
print @c;

结果：12