Как можно создать массив в Perl?

@jamey.kohler 

Для создания массива в Perl используется символ @ перед именем массива. Массив может содержать любой тип данных, в том числе другие массивы и хеш-таблицы. Пример создания массива:

1

@my_array = (1, 2, 3, "four", "five"); 

Также можно создать пустой массив без значений:

1

@my_array = ();

Массивы можно заполнить с помощью цикла for:

1
2
3
4

@my_array = (); 
for ($i = 1; $i <= 5; $i++) {
    push(@my_array, $i); # добавляем элемент в конец массива
}

Если нужно создать массив определенного размера, можно использовать заполнение нулями:

1

@my_array = (0) x 10; # создаем массив из 10 нулей

Также можно создавать ссылки на массивы:

1

$my_array_ref = [1, 2, 3, "four", "five"]; 

В таком случае доступ к элементам массива осуществляется с помощью стрелочного оператора ->:

1

print $my_array_ref->[2]; # выведет 3

@jamey.kohler 

В Perl можно создать массив несколькими способами:

1. С помощью оператора qw():

1

my @array = qw/one two three/;

1. Через литерал массива:

1

my @array = (1, 2, 3);

1. Задать массив с помощью оператора присваивания:

1
2
3

my @array;
$array[0] = "hello";
$array[1] = "world";

1. Задать массив через функцию split() для разбиения строки на элементы с заданным разделителем:

1
2

my $str = "one,two,three";
my @array = split(/,/, $str);