Что такое map в perl и как с ним работатьPerl, Python — блог программиста

Синтаксис

map BLOCK LIST
map EXPR, LIST

1 2	map BLOCK LIST map EXPR, LIST

Описание

Функция map вычисляет BLOCK или EXPR для каждого элемента списка LIST, и возвращает список, который содержит преобразованные элементы LIST.

#!/usr/bin/perl -w

use strict;

my @list = qw(нет ни лета ни зимы ни весны);

my @names = map {split ''} @list;

foreach (@list) {print $_." "}; print "\n";

foreach (@names) {print $_." "}; print "\n";

#!/usr/bin/perl -w

use strict;

my @list = qw(нет ни лета ни зимы ни весны);

my @names = map {split ''} @list;

foreach (@list) {print $_." "}; print "\n";

foreach (@names) {print $_." "}; print "\n";

Вывод:

%perl map.pl
нет ни лета ни зимы ни весны
н е т н и л е т а н и з и м ы н и в е с н ы

%perl map.pl

нет ни лета ни зимы ни весны

н е т н и л е т а н и з и м ы н и в е с н ы

По приниципу работы map напоминает foreach. В случае сложных вычислений, использование foreach может оказаться более предпочтительным, т.к. оно более наглядно и доступно для понимания.

От grep функция map отличается тем, что map возвращает список, который является результатом вычислений в рамках EXPR или BLOCK. А grep возвращает список элементов LIST, которые соответствуют заданному условию поиска в EXPR или BLOCK.

Т.е. по сути, grep используется в основном для поиска в заданном списке, а map — для преобразований.

Примеры использования map

Хэш на выходе

my @list = qw(нет ни лета ни зимы ни весны);

my %names = map {$_ => 1} @list;

foreach (keys %names) {print $_." = ". $names{$_}."\n"};

my @list = qw(нет ни лета ни зимы ни весны);

my %names = map {$_ => 1} @list;

foreach (keys %names) {print $_." = ". $names{$_}."\n"};

Вывод:

%perl map.pl
весны = 1
лета = 1
зимы = 1
ни = 1
нет = 1

%perl map.pl

весны = 1

лета = 1

зимы = 1

ни = 1

нет = 1

Преобразование ссылок

#!/usr/bin/perl -w

use strict;

my @list = qw(<href="http://aninatalie.ru">MainPage</a>);

map { s/\&/&amp;/g;
          s/</&lt;/g;
          s/>/&gt;/g;
          s/\"/&quot;/g;
          s/\015//g;} @list;


foreach (@list) {print $_.""};

#!/usr/bin/perl -w

use strict;

my @list = qw(<href="http://aninatalie.ru">MainPage</a>);

map { s/\&/&/g;

s/</</g;

s/>/>/g;

s/\"/"/g;

s/\015//g;} @list;

foreach (@list) {print $_.""};

Вывод:

%perl map.pl
&amp;lt;href=&amp;quot;http://aninatalie.ru&amp;quot;&amp;gt;MainPage&amp;lt;/a&amp;gt;

%perl map.pl

&lt;href=&quot;http://aninatalie.ru&quot;&gt;MainPage&lt;/a&gt;