undefined hash key

Question

erişmeye çalışırken perl shout yapmak başlık kendisinin açıklayıcı olduğunu düşünüyorum. Çoğu zaman küçük yazım hatalarım var ve undefined hash anahtarlarına erişmeye çalışırken beklenmedik sonuçlar elde ediyorum. ::

iyisi, Dave

Answer 1

Bu muhtemelen en iyi bir bağladılar karma ile yapılır. Bağlı değişkenler, değişkenin düşük seviyeli işlemlerinin uygulanmasını tanımlamanıza izin verir. İlk yük Tie::StdHash sağlar Tie::Hash, yukarıda

use warnings; 
use strict; 

{package Safe::Hash; 
     require Tie::Hash; 
     our @ISA = 'Tie::StdHash'; 
     use Carp; 

     sub FETCH { 
       exists $_[0]{$_[1]} or croak "no key $_[1]"; 
       $_[0]{$_[1]} 
     } 
} 

tie my %safe => 'Safe::Hash'; 

$safe{a} = 5; # ok 

print $safe{a}, "\n"; # ok 

$safe{b} = 10; # ok 

print $safe{bb}, "\n"; # dies 

Safe::Hash uygulanmasında; bu durumda, biz var olmayan anahtarlar erişirken ölür özel getirme yöntemi istiyorum. @ISA - Tie::StdHash ayarı, yeni paketimizi normal karılarla aynı şekilde davranan bağlama yöntemleri sağlar. Bağ yöntemlerinin her biri http://perldoc.perl.org/perltie.html

'da özetlenmiştir. Bu durumda, geçersiz kılmanın tek yöntemi, gizli bağlı nesneye (bu durumda bir hashref) bir başvuru geçirilen ve kullanılacak anahtar olan FETCH'dur. Yuvanın var olup olmadığını kontrol eder ve ya döndürür ya da bir hata atar

Answer 2

Kullanım Hash .... ben bir kare tuşuna erişmek her zaman önce bazı defined çek ekleyebilir biliyorum ama bu gibi durumlarda karşı uyarmak için herhangi temizleyici yolu var mı acaba util:

use Hash::Util "lock_keys"; 
my %hash = (foo => 42, bar => 23); 
lock_keys(%hash); 
print $hash{foo}; 
print $hash{baz}; 
print $hash{bar}; 

çıkışı:

tuşları sadece wha varsaymak değil, izin belirterek izin diğer işlevleri vardır

42 
Attempt to access disallowed key 'baz' in a restricted hash at foo line 5. 

Orada zaten var.

Answer 3

Bunun için basit bir fonksiyon yazabiliriz:

sub get { 
    my ($hash, $key) = @_; 
    die "No such key: $key" unless exists $hash->{$key}; 
    return $hash->{$key}; 
} 

my %hash = (...);  
my $val = get(\%hash, "mykey");