Как я могу использовать 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;

, есливы бы предпочли "cdef".

Answer 4

Попробуйте это ....

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