如何使用Perl连接两个索引之间的数组元素？

Question

我有一个字符串数组：@array

我想连接与数组索引$i开始$j所有字符串。 我该怎么做？

Answer 1

$newstring = join('', @array[$i..$j]) 

Answer 2

my $foo = join '', @array[$i..$j]; 

首先，我们生成了我们需要的值的数组切片，然后我们加入他们的空字符“”。

Answer 3

试试这个....

use warnings ; 
use strict ; 
use Data::Dumper ; 
my $string ; 
map { $string .= $_; } @arr[$i..$j] ; 
print $string ; 

Answer 4

只需放入引号内的Perl数组足够来连接它，如果你满意的空格作为连接字符：

@array = qw(a b c d e f g); 
$concatenated = "@array[2 .. 5]"; 
print $concatenated; 
## prints "c d e f" 

或当然

$" = '-'; 
@array = qw(a b c d e f g); 
$concatenated = "@array[2 .. 5]"; 
print $concatenated; 

如果你更喜欢“cdef”。