làm cho tiếng kêu rầm rộ khi cố gắng truy cập vào khóa băm không xác định

Question

Tôi nghĩ rằng tiêu đề là tự giải thích. Nhiều lần tôi có lỗi chính tả nhỏ và tôi nhận được kết quả không mong muốn khi cố truy cập các khóa băm không xác định. Tôi biết tôi có thể thêm một số defined kiểm tra trước mỗi lần tôi truy cập vào một phím băm, nhưng tôi tự hỏi, nếu có bất kỳ cách nào sạch để cảnh báo chống lại những trường hợp này ....

nhất, Dave

Answer 1

Đây có lẽ là tốt nhất thực hiện với một băm trói. Các biến gắn kết cho phép bạn xác định việc thực hiện các hoạt động ở mức độ thấp của biến. Trong trường hợp này, chúng tôi muốn có một phương pháp lấy đặc biệt mà chết khi truy cập vào các phím không tồn tại:

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 

trong việc thực hiện các Safe::Hash trên, đầu tiên tôi tải Tie::Hash cung cấp Tie::StdHash. Đặt @ISA thành Tie::StdHash cung cấp gói mới của chúng tôi với các phương thức tie hoạt động theo cách tương tự như băm thông thường. Mỗi phương pháp liên kết được nêu trên http://perldoc.perl.org/perltie.html

Trong trường hợp này, phương pháp duy nhất để ghi đè là FETCH được chuyển qua tham chiếu đến đối tượng được gắn ẩn (trường hợp này là hashref) và khóa để sử dụng. Nó sẽ kiểm tra xem vị trí đó có tồn tại hay không và trả về lỗi hoặc ném một lỗi

Answer 2

Sử dụng Hash :: util:

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

đầu ra:

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

có chức năng khác cho phép đó nêu rõ các phím cho phép, không chỉ mặc định cho wha t đã có.

Answer 3

Bạn có thể viết một hàm đơn giản cho việc này:

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

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