Làm thế nào tôi có thể kiểm tra rằng "cái gì" là một băm trong Perl?

Question

Tôi nhận được một băm băm từ một hàm khác và một số phần tử của băm băm có thể là một băm khác. Làm thế nào tôi có thể kiểm tra để xem nếu một cái gì đó là một băm?

Answer 1

Tùy thuộc vào những gì bạn muốn, bạn sẽ cần phải sử dụng ref hoặc reftype (mà là ở Scalar::Util, một mô-đun lõi). Nếu tham chiếu là một đối tượng, ref sẽ trả về lớp của đối tượng thay vì loại tham chiếu cơ bản, reftype sẽ luôn trả về kiểu tham chiếu cơ bản.

if (ref $var eq ref {}) { 
    print "$var is a hash\n"; 
} 

use Scalar::Util qw/reftype/; 

if (reftype $var eq reftype {}) { 
    print "$var is a hash\n"; 
} 

Answer 2

Sử dụng ref chức năng:

ref($hash_ref) eq 'HASH' ## $hash_ref is reference to hash 
ref($array_ref) eq 'ARRAY' ## $array_ref is reference to array 

ref($hash{$key}) eq 'HASH' ## there is reference to hash in $hash{$key} 

Answer 3

use Params::Util qw<_HASH _HASH0 _HASHLIKE>; 

# for an unblessed hash with data 
print "$ref is a hash\n" if _HASH($ref); 
# for an unblessed hash empty or not 
print "$ref is a hash\n" if _HASH0($ref); 
# for a blessed hash OR some object that responds as a hash* 
print "$ref is hashlike\n" if _HASHLIKE($ref); 

* qua overload

Bạn có lẽ không cần người cuối cùng, mặc dù.

thấy Params::Util

Answer 4

Tôi luôn sử dụng isa, nhưng nếu điều đang được thử nghiệm không phải là một đối tượng (hoặc có thể không phải là một đối tượng), bạn cần phải gọi nó như chức năng UNIVERSAL::isa:

if (UNIVERSAL::isa($var, 'HASH')) { ... }