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

Question

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

我想将以数组索引$i开头的所有字符串连接到$j。 我怎么能这样做？

Answer 1

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

Answer 2

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

首先我们生成一个包含我们想要的值的数组切片，然后我们将它们连接到空字符''。

Answer 3

如果你对空格作为连接字符感到满意，那么将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;

如果您更喜欢“c-d-e-f”。

Answer 4

试试这个......

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