Хеш в Perl, обойтись без exists и defined

&{$h{"a1"} || sub {print ""}}
Не спасёт отца мировой демократии?

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

Правильно всё-таки делать в классе

sub get {
 my ($self,$val)=@_;
 return sub {} unless $self->{$val};
 return $self->{$val};
}

а вызывать как

&{$myref->get("hello")}();

Тем более что в ->get могуть быть более сложные ситуации

Наверное так правильнее всего. Спасибо!

Сделай свой собственный хеш на базе Tie::StdHash и переопредели
нужные метод[ы] (FETCH). Ниже пример, как возвращать default строку,
аналогично можешь возвращаить code refernce.


#!/usr/bin/perl -w

use strict;

package HashWithDefaultValue;
use Tie::Hash;
our @ISA = 'Tie::StdHash';
                                                                                         
sub FETCH
{
    my $self = shift;
    my $key  = shift;
    exists $self->{$key} ? $self->{$key} : "SOME DEFAULT VALUE";
}


package main;

tie my %new_hash, 'HashWithDefaultValue';

$new_hash{A} = "Value for A";

print $new_hash{A}, "\n", $new_hash{NON_EXESTENT}, "\n";

Спасибо. Интересно.

Однако сколько нового можно узнать, захотев сделать код покрасивее.

Использовать perl, не прочитав Perl CookBook - преступление.