在perl中,求打印参数结果:
@a = reverse qw/ aab bbc ccd /;
print "scalar1 context: $a";
$b = qw/ aab bbc ccd /;
print "scalar2 context: $b";
scalar1 context: dcccbbbaascalar2 context: ccd
scalar1 context: dcccbbbaascalar2 context: aab
scalar1 context: dcc cbb baascalar2 context: aab
scalar1 context: dcc cbb baascalar2 context: ccd