Странное поведение map

в качестве входного списка всё разделённое запятыми

Ну, а как он должен отрабатывать это?

map { ... } $val1, $val2, ...;

Ты какую задачу решаешь? Или какое поведение тебе нужно получить?

С третьего прочтения понял о чём речь =)

map в качестве аргументов ждёт блок и массив, а «@a,@b» это и есть конкатенация массивов, то есть один массив.

Мне нужно, чтобы в join(«\n»,map {} @a, @b) - возвращалась строка, в которой map применён только к @a, но не к @b...

Только скобками, да:

join $/,(map {} @a), @b;

join(«\n»,(map {} @a), @b) ?

Потому что массив в перле не считается объектом в философском плане, а считается кучей значений через запятую. Если хочешь отделить, юзай референсы — это и есть объекты в питонячьем, например, понимании.

Потому что массив в перле не считается объектом в философском плане, а считается кучей значений через запятую. Если хочешь отделить, юзай референсы — это и есть объекты в питонячьем, например, понимании.

Все верно, однако есть вариант идти через прототип функции:

#!/usr/bin/perl

sub mymap(&\@;@) {
  map &{$_[0]}, @{$_[1]};
}

@a = (1..3);
@b = (4..6);

print $_, "\n" for mymap { $_ * $_ } @a, @b;

http://ideone.com/9ZQH6z

Минус в том, что прототип работает только в рамках своего модуля. Извне пример выше надо делать так: mymap(sub { $_ * 3 }, \@list);

В каком смысле извне? Так вполне работает

#!/usr/bin/perl

package X;

sub mymap(&\@;@) {
  map &{$_[0]}, @{$_[1]};
}

package main;

@a = (1..3);
@b = (4..6);

print $_, "\n" for X::mymap { $_ * $_ } @a, @b;

perldoc -f join

  join EXPR,LIST

perldoc -f map

  map BLOCK LIST

ты и передаёшь ей список. С чего вдруг ты решил что список должен ограничиваться одним элементом либо с чего вдруг ты решил что передача в список массива чем-то отличается от передачи чего угодно другого?

Из -за приоритета map (который является list operator) и ',': http://perldoc.perl.org/perlop.html#Terms-and-List-Operators-(Leftward) http://perldoc.perl.org/perlop.html#List-Operators-(Rightward)