hi，如何粘合两数组元素为一？

perlnewbie

如

1. @a=("a","_1","b","-1");

复制代码

变成

1. @a=("a_1","b-1");

复制代码

xfoucs

来个笨方法
my @a=("a","_1","b","-1");
my @b=();
for(0..int(@a/2)-1)
{
    push @b,"$a[2*$_]$a[2*$_+1]";
}
奇数个元素的尾巴还要的话再push $a[-1] 下

nhw_cs

The most brief codes I have figured out so far:

my @a;
my $i=($#a+1)/2;
for (0..$i) {
push(@a, shift(@a) . shift(@a));
}

Perlvim

1. my @a = ("a", -1, "b", -1);
   
2. my %a = @a;
   
3. my @b;
   
4. while (my ($key, $value) = each %a) {
   
5.     push @b, "$key$value";
   
6. }
   
7. 
   
8. say @b;

复制代码

Perlvim

1. my @a = ("a", -1, "b", -1);
   
2. my @b;
   
3. while (@a) {
   
4.     my $a = shift @a;
   
5.     my $b = shift @a;
   
6.     push @b, $a . $b;
   
7. }
   
8. say @b;

复制代码

yinyuemi

map{splice(@a,$_,2,@a[$_].@a[$_+1])} (0..$#a/2)

perlnewbie

回复晚了，谢谢