У меня есть массив строк: @array
Я хочу связать все строки, начинающиеся с индекса массива $i
кому: $j
. Как я могу сделать это?
my $foo = join '', @array[$i..$j];
Сначала мы генерируем срез массива с нужными нам значениями, а затем присоединяем их к пустому символу ''.
Попробуйте это ....
use warnings ;
use strict ;
use Data::Dumper ;
my $string ;
map { $string .= $_; } @arr[$i..$j] ;
print $string ;
Просто заключите массив 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.