perl - perlでハッシュ参照が空かどうかを確認する方法

Question

hashref に 0 要素が含まれているかどうかをテストする必要があります。私はこのコードを使用しました：

$self = { fld => 1 };
%h = ( "a" => "b" );
$self->{href} = { %h };
print STDERR $self->{href}{ "a" };
print STDERR "\n";
print "size of hash:  " . keys( %h ) . ".\n";
print "size of hashref:  " . keys( $self->{href} ) . ".\n";

perl 5.16 では問題なく動作しますが、perl 5.10 では失敗します:

Type of arg 1 to keys must be hash (not hash element) at - line 7, near "} ) "
Execution of - aborted due to compilation errors.

score 17 · Accepted Answer

使用する場合

%hash

ハッシュの場合は、次を使用します

%{ $hash }

参考までにですので、

keys %{ $self->{href} }

注: Perl の一部のバージョンでkeysは、参照を受け入れます。ただし、これは放棄された実験的な機能でした。使うべきではありません。

score 3 · Accepted Answer

ハッシュに要素があるかどうかを調べるには、スカラーコンテキストで使用します。

scalar %h

また

%h ? "yup" : "nope"

scalar keys %hのキーを数えることで同じ目的を達成しますが%h、実際に知りたいことを尋ねる方がよいでしょう。

ただし、いずれに%hしてもハッシュであり、ハッシュリファレンスではありません。(Perl の一部のバージョンでは、への引数として hashref を許容しますkeys。) EXPRhashref に評価される式が与えられた場合、対応するハッシュを取得するには、%{ EXPR }. これをサンプルコードと組み合わせると、次のようになります。

print "size of hashref:  " . keys( %{ $self->{href} } ) . ".\n";
print "hash " . (%{ $self->{href} } ? "does" : "does not") . " contain elements\n";

score 2 · Accepted Answer

ハッシュとして逆参照する必要があります。

print "size of hashref: ", keys %{ $self->{href} }, "\n";

TIMTOWTDI の場合、キーがあるかどうかを確認するために、次の必要はありませんkeys。

print "undefined" unless %{ $self->{href} };

perl - perlでハッシュ参照が空かどうかを確認する方法

4 に答える 4

Related

Reference