Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl: Помогите переделать в однострочник / 1 сообщений из 1, страница 1 из 1
11.12.2019, 15:38
    #39901316
Alibek B
Alibek B
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Perl: Помогите переделать в однострочник
Есть такой фрагмент кода: если хеш задан, то в цикле обработать его значения (нужен именно цикл).
Код: php
1.
2.
3.
if ($arr) {
  $res->{$_} = $arr->{$_} foreach (keys %$arr);
}



Так Perl ругается на синтаксис:
Код: php
1.
$res->{$_} = $arr->{$_} foreach (keys %$arr) if ($arr);



Так в принципе получаю нужное поведение, но тернарный оператор немного мозолит глаза.
Код: php
1.
$res->{$_} = $arr->{$_} foreach (keys ($arr ? %$arr : {}));



А так не уверен, что сработает правильно:
Код: php
1.
$res->{$_} = $arr->{$_} foreach (keys %{$arr//{}});
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Perl: Помогите переделать в однострочник / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]