3 回答

TA貢獻(xiàn)2003條經(jīng)驗(yàn) 獲得超2個(gè)贊
你就用push唄,push是每次往列表的右邊加上一個(gè)元素;你說(shuō)的逐行去除那是pop.
列表變量本來(lái)就可以轉(zhuǎn)化為content變量,直接轉(zhuǎn)就是了。
@a = ('P','e','r','l');
my ($b)=[0,1,2,3];

TA貢獻(xiàn)1812條經(jīng)驗(yàn) 獲得超5個(gè)贊
$b = [@a];
push @$b, shift @a while @a;
順便說(shuō)兩句:
這不叫字符串多值, 這叫 Array Reference (數(shù)組引用, 引用數(shù)組 ... ) Perl 不會(huì)將 string 當(dāng)成 char array 的. perl 沒有 char 這種變量形態(tài)
如可以, 請(qǐng)避用 $a $b (或 @a @b ) , 這兩個(gè)變量盡量留給 sort {} 用.

TA貢獻(xiàn)1893條經(jīng)驗(yàn) 獲得超10個(gè)贊
@a = ('P','e','r','l'); $t=join "",@a; print $t;
字符串,直接取就是了。
添加回答
舉報(bào)