В рассмотренных ниже примерах Вы можете ознакомиться с функциями обработки списков grep, map, split, join. Так же эффективно их использование с регулярными выражениями.
1. О SPLIT и JOIN:
Допустим, мы имеем строку my $str = 'A, B, C, D, E, F, ';
Разделяет буквы не только запятая, но и пробел после запятой. Зная это, мы можем получить все символы в массив.
my @array = split(', ', $str);Противоположный split - join, который делит список в строку по разделителю, т.е. обратная функция.
my @array = ('A', 'B', 'C', 'D', 'E', 'F');
my $str = join(', ', @array);2. O GREP и MAP:
Функция GREP фильтрует по условию.
my @arr1 = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
my @arr2 = grep { $_ > 5 } @arr1;Получаем в @arr2 элеметы которые больше 5, т.е. 6, 7, 8, 9, 10
Функция MAP выполняет выражения
my @arr1 = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
my @arr2 = map { $_ + 5 } @arr1;В @arr2 получим: 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
Попытался довольно просто и наглядно показать работу одних из основных perl-функций