История изменений

Исправление DRVTiny, 19.08.16 15:12 (текущая версия) :

А я допилил свой вариант, чтобы можно было список ссылок принимать на вход:

sub derefOrNothing {
 my $I7={
  'ARRAY'=>sub { @{$_[0]} },
  'HASH'=>sub { %{$_[0]} }
 };
 map {($I7->{ref $_} || sub {})->($_)} @_;
}

В моём случае ссылки на «SCALAR» мне не нужны, так что я их silently дропаю как "", «CODE», «GLOB» и всякие там «Package::SubModule» :)

Исправление DRVTiny, 19.08.16 15:11:

А я допилил свой вариант, чтобы можно было список ссылок принимать на вход:

sub derefOrNothing {
 my $I7{
  'ARRAY'=>sub { @{$_[0]} },
  'HASH'=>sub { %{$_[0]} }
 };
 map {($I7->{ref $_} || sub {})->($_)} @_;
}

В моём случае ссылки на «SCALAR» мне не нужны, так что я их silently дропаю как "", «CODE», «GLOB» и всякие там «Package::SubModule» :)

Исходная версия DRVTiny, 19.08.16 15:11:

А я допилил свой вариант, чтобы можно было список ссылок принимать на вход:

sub derefOrNothing {
 my $I6={
  'ARRAY'=>sub { @{$_[0]} },
  'HASH'=>sub { %{$_[0]} }
 };
 map {($I6->{ref $_} || sub {})->($_)} @_;
}

В моём случае ссылки на «SCALAR» мне не нужны, так что я их silently дропаю как "", «CODE», «GLOB» и всякие там «Package::SubModule» :)