Perl 如何数组转字符串！急！

Question

本人初学perl,请教如何将一个数组多值转成一个字符串的多个值。以@a = ('P','e','r','l')为例，想要得到$b = ['P','e','r','l']值。应该就是把@a $VAR1 = 'P';$VAR2 = 'e';$VAR3 = 'r';$VAR4 = 'l';变成$b$VAR1 = ['P','e','r','l'];顺便问下，倒过来的话，数组逐行push去字符串push($b,shift(@a)) , 这里push怎么用的？

Answer 1

你就用push呗，push是每次往列表的右边加上一个元素；你说的逐行去除那是pop.
列表变量本来就可以转化为content变量，直接转就是了。

@a = ('P','e','r','l');
my ($b)=[0,1,2,3];

Answer 2

$b = [@a];

push @$b, shift @a while @a;

顺便说两句:

1. 这不叫字符串多值, 这叫  Array Reference (数组引用, 引用数组 ... ) Perl 不会将 string 当成 char array 的. perl 没有 char 这种变量形态

2. 如可以, 请避用 $a $b (或 @a @b ) , 这两个变量尽量留给 sort {} 用.

Answer 3

@a = ('P','e','r','l'); $t=join "",@a; print $t;

字符串，直接取就是了。