Perl-массив

Массив Perl — это переменная списка, в которой хранятся скалярные значения. Переменные могут быть разных типов.

Переменные массива начинаются с @. Для доступа к элементам массива используйте для чтения формат $ + имя переменной + [значение индекса] . Пример следующий:

Пример

#!/usr/bin/perl @hits = ( 25 , 30 , 40 ) ; @names = ( « google » , « codercto » , « taobao » ) ;​ " $ hits[0] = $hits [0] n " печать ; " $ hits[1] = $hits [1] n " print ; " $ hits[2] = $ hits [2] n " ; " $ names[0] = $names [0] n " печать ; " $ names[1] = $names [1] n " печать ; " $ names[2] = $names [2] n " ;

В программе символ $ экранируется символом , что позволяет вывести его как есть.

 $hits[0] = 25$hits[1] = 30$hits[2] = 40$names[0] = google$names[1] = codercto$names[2] = taobao

создать массив

Переменные массива начинаются с символа @ , а элементы помещаются в скобки. Вы также можете определить массив, начинающийся с qw .

 @array = (1, 2, 'Привет');@array = qw/Это массив/;

Второй массив использует оператор qw// , который возвращает список строк с элементами массива, разделенными пробелами. Конечно, вы также можете использовать несколько строк для определения массива:

 @days = qw/googletaobao...codercto/;

Вы также можете присвоить значения массиву по индексу следующим образом:

 $array[0] = 'Понедельник';...$array[6] = 'Воскресенье';

Доступ к элементам массива

Для доступа к элементам массива используйте для чтения формат $ + имя переменной + [значение индекса] . Пример следующий:

Пример

@sites = qw/ Google Taobao Codercto / ; " $sites [ 0] n " ; " $sites [ 1] n " ; " $sites [2] n " ; " $sites [-1] n " # Отрицательное число, читаем в обратном направлении

 Googleтаобаокодерктокодеркто

Значения индекса массива начинаются с 0, то есть 0 — первый элемент, 1 — второй элемент и так далее.

Отрицательные числа читаются в обратном направлении, -1 – первый элемент, -2 – второй элемент.

порядковый номер массива

Perl предоставляет формат массива, который можно выводить последовательно. Формат: начальное значение + .. + конечное значение . Пример следующий:

Пример

#!/usr/bin/perl @ var_1 0 = ( 1 ..10 ) ; @ var_2 0 = ( 10 . .20 ) ; @var_abc = ( a .. z ) ; " @var_10 n " # Вывод от 1 до 10 распечатать " @var_20 n " # Вывод от 10 до 20 распечатать " @var_abc n " # Вывод от a до z

 1 2 3 4 5 6 7 8 9 1010 11 12 13 14 15 16 17 18 19 20a bcdefghijklmnopqrstuv wxyz

размер массива

Размер массива определяется скалярным контекстом внутри массива. :

 @array = (1,2,3);print "размер массива: ",скаляр @array,"n";

Длина массива возвращает физический размер массива, а не количество элементов. Мы можем увидеть следующий пример:

Пример

#!/uer/bin/perl @array = ( 1 , 2 , 3 ) $array [ 50 ] = 4 ; $ size = @array ; $max_index = $# array ; " Размер массива: $size n " печать ; " Максимальный индекс: $max_index n " ;

 Размер массива: 51 Максимальный индекс: 50

Как видно из вывода, элементов массива всего четыре, но размер массива равен 51.

Добавлять и удалять элементы массива

Perl предоставляет несколько полезных функций для добавления и удаления элементов массива.

Если у вас раньше не было опыта программирования, вы можете спросить, что такое функция. На самом деле, print, который мы использовали ранее, является функцией вывода.

В следующей таблице перечислены часто используемые функции операций с массивами:

серийный номер	Тип и описание
1	нажмите @ARRAY, СПИСОК Поместите значение списка в конец массива
2	поп @ARRAY Вытолкните последнее значение массива и верните его
3	сдвиг @ARRAY Извлекает первое значение массива и возвращает его. Значение индекса массива также уменьшается на единицу.
4	отменить сдвиг @ARRAY, СПИСОК Помещает список перед массивом и возвращает количество элементов в новом массиве.

Пример

#!/usr/bin/perl #Создаем простой массив @sites = ( « google » , « codercto » , « taobao » ) ;​ " 1. @sites = @sites n " # Добавляем элемент в конец массива push ( @sites , " baidu " ) ;​ " 2. @sites = @sites n " # Добавляем элемент в начало массива unshift ( @sites , « weibo » ) ;​ " 3. @sites = @sites n " # Удалить элементы в конце массива поп ( @sites ) печать ; " 4. @sites = @sites n " # Удалить элементы в начале массива сдвиг ( @sites ) ; печать ; " 5. @sites = @sites n " ;

Вырезать массив

Мы можем вырезать массив и вернуть новый массив после вырезания:

Пример

#!/usr/bin/perl @sites = qw/ google taobao codercto weibo qq facebook Netease / @ sites2 = @sites [ 3 , 4 , 5 ] ; " @sites2 n " ;

 Weibo QQ Facebook

Индекс массива должен указывать допустимое значение индекса, которое может быть положительным числом, за которым следует отрицательное число. Каждое значение индекса разделяется запятой.

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

Пример

#!/usr/bin/perl @sites = qw / google taobao codercto weibo qq facebook Netease / @ sites2 = @sites [ 3 .5 ] ; " @sites2 n " ;

 Weibo QQ Facebook

Заменить элементы массива

Функция splice() используется для замены элементов массива в Perl. Формат синтаксиса следующий:

 соединение @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

Описание параметра:

@ARRAY: Массив, который нужно заменить.

СМЕЩ: исходное положение.

ДЛИНА: количество элементов для замены.

СПИСОК: Список заменяемых элементов.

В следующем примере заменяются 5 элементов массива, начиная с 6-го элемента:

Пример

#!/usr/bin/perl @nums = ( 1 ... 20 ) печать ; « Перед заменой — @nums n » splice ( @nums , 5 , 5 , 21..25 ) ; " После замены - @nums n " ;

 До замены - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 После замены - 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

Преобразовать строку в массив

Чтобы преобразовать строку в массив в Perl, используйте функцию Split(). Синтаксис следующий:

 разделить [ ШАБЛОН [ , EXPR [ , ПРЕДЕЛ ] ] ]

Описание параметра:

ШАБЛОН: разделитель, по умолчанию — пробел.

EXPR: укажите количество строк.

LIMIT: если этот параметр указан, возвращается количество элементов в массиве.

Пример

#!/usr/bin/perl #определить строку $var_test = " codercto " ; $var_string = " www-codercto-com " ; $var_names = " google,taobao,codercto,weibo " # Преобразование строки в массив @test = Split ( ' ' , $var_test ) ; @string = Split ( ' - ' , $ var_string ) ; @names = Split ( ' , ' , $var_names ) ; " $test [3] n " # Вывод o распечатать " $string [2] n " # Вывод com ; распечатать " $names [3] n " # Вывод weibo

 окомвейбо

Преобразовать массив в строку

В Perl функция join() используется для преобразования массива в строку. Синтаксис следующий:

 присоединяйтесь к EXPR, LIST

Описание параметра:

ЭКСПР: Разъем.

СПИСОК: Список или массив.

Пример

#!/usr/bin/perl #определить строку $var_string = " www-codercto-com " ; $var_names = " google,taobao,codercto,weibo " # Преобразование строки в массив @string = Split ( ' - ' , $var_string ) ; @names = Split ( ' , ' , $var_names ) # Преобразование массива в строку ; $string1 = присоединиться ( ' - ' , @нить ) ; $string2 = присоединиться ( ' , ' , @names ) ; распечатать " $string1 n " ; печать " $string2 n " ;

 www-codercto-comgoogle,taobao,codercto,weibo

Сортировка массива

Сортировка массивов в Perl использует функцию sort(), ее синтаксис следующий:

 сортировать СПИСОК [ПОДПРОГРАММ]

Описание параметра:

ПОДПРОГРАММА: Укажите правила.

СПИСОК: Список или массив.

Пример

#!/usr/bin/perl #определить массив @sites = qw( Google Taobao Codercto Facebook ) ; " Перед сортировкой: @sites n " # Сортируем массив ; @sites = сортировка ( @sites ) ; печать ; " После сортировки: @sites n " ;

 Перед сортировкой: Google Taobao Codercto Facebook После сортировки: Facebook Google Codercto Taobao

Примечание. Сортировка массивов основана на числовых значениях ASCII. Поэтому, когда мы сортируем массив, лучше всего перед сортировкой преобразовать каждый элемент в нижний регистр.

Специальные переменные: $[

Специальная переменная $[ представляет первое значение индекса массива, которое обычно равно 0. Если мы установим $[ равным 1, первое значение индекса массива будет равно 1, второе — 2 и так далее. Примеры следующие:

Пример

#!/usr/bin/perl #определить массив @sites = qw( Google Taobao Codercto Facebook ) ; " Веб-сайты: @sites n " # Установите первый индекс массива равным 1 $ [ = 1 ; " @sites[1]: $ sites [1] n " ; " @sites[2]: $sites [2] n " ;

 Веб-сайт: google taobao codercto facebook@sites[1]: google@sites[2]: taobao

В общем, мы не рекомендуем использовать специальную переменную $[ . В новой версии Perl от этой переменной отказались.

Объединение массивов

Элементы массива разделяются запятыми. Мы также можем использовать запятые для объединения массивов, как показано ниже:

Пример

#!/usr/bin/perl @numbers = ( 1 , 3 , ( 4 , 5 , 6 ) ) ;​ " numbers = @numbers n " ;

 числа = 1 3 4 5 6

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

Пример

#!/usr/bin/perl @odd = ( 1 , 3 , 5 ) ; @even = ( 2 , 4 , 6 ) ; @numbers = ( @odd , @even ) ;​ " numbers = @numbers n " ;

 числа = 1 3 5 2 4 6

Выбрать элемент из списка

Список можно использовать как массив. Укажите значение индекса после того, как список сможет прочитать указанный элемент, как показано ниже:

Пример

#!/usr/bin/perl $ var = ( 5 , 4 , 3 , 2 , 1 ) [ 4 ] ; " Значение var = $var n "

 Значение var = 1

Точно так же мы можем использовать .. в массиве для чтения элементов в указанном диапазоне:

Пример

#!/usr/bin/perl @list = ( 5 , 4 , 3 , 2 , 1 ) [ 1 .3 ] ;​​ " значение списка = @list n " ;

 значение списка = 4 3 2