VPF::в одну строку написать вывод массив join

gcc

Дата 20.4.2010, 21:00 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

не получается написать вывод в одну строку (точнее запатая не ставиться):

Код


my $aa;

$aa->[0] = { tt=>2, yy => 0};
$aa->[1] = { tt=>1, yy => 4};
$aa->[2] = { tt=>1, yy => 5};

print join ",", map {$_} $_->{tt} == 1 ? $_->{yy} : next foreach @$aa ;

выводит:

Код

почему не ставиться запятая в join?

я сделал так через push:

Код


$hh;

push @$hh, $_->{tt} == 1 ? $_->{yy} : next foreach @$aa ;

print join ",", @$hh;

Код


./perl.pl
4,5

но все таки можно ли в одну строку написать? как в первом варианте?

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

arto

Дата 20.4.2010, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

print join ",", map { $_->{'tt'} == 1 ? $_->{'yy'} : () } @$aa;

gcc

Дата 22.4.2010, 04:35 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

arto, работает!

я не знал про (), а оператор next в map не работает, по этому пришлось делать криво через foreach

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »