perl - Perl ハッシュに未定義の値へのキー マッピングが含まれているかどうかを判断するにはどうすればよいですか?

Question

Perl ハッシュに特定のキーがあるかどうかを判断する必要がありますが、そのキーは undef 値にマップされます。getopt()具体的には、これの動機は、渡されたハッシュ参照を使用しているときにブール値フラグを確認することです。私はすでにこのサイトとグーグルの両方を検索しましたが、このexists()状況defined()には当てはまらないようです。特定のキーの値が未定義であるかどうかを確認するだけで、ハッシュに実際にキーがあるかどうかを確認しません。ここで RTFM を使用している場合は、これについて説明しているマニュアルを参照してください。

Answer 1

exists() と defined() はこの状況には当てはまらないようです。指定されたキーの値が未定義かどうかを確認するだけで、ハッシュが実際にキーを持っているかどうかを確認しません。

正しくない。それは実際に行うことですdefined()が、exists()まさにあなたが望むことを行います:

my %hash = (
    key1 => 'value',
    key2 => undef,
);

foreach my $key (qw(key1 key2 key3))
{
    print "\$hash{$key} exists: " . (exists $hash{$key} ? "yes" : "no") . "\n";
    print "\$hash{$key} is defined: " . (defined $hash{$key} ? "yes" : "no") . "\n";
}

生成:

$hash{key1} が存在します: はい
$hash{key1} が定義されています: はい
$hash{key2} が存在します: はい
$hash{key2} が定義されています: いいえ
$hash{key3} が存在します: いいえ
$hash{key3} が定義されています: いいえ

これら 2 つの関数のドキュメントは、コマンドラインのperldoc -f definedおよびにあります (または、 *perldoc -f existsのすべてのメソッドのドキュメントを参照してください)。perldoc perlfunc公式の Web ドキュメントは次の場所にあります。

• http://perldoc.perl.org/functions/exists.html
• http://perldoc.perl.org/functions/defined.html

*あなたは特に RTFM について言及しており、Perl のドキュメントの場所を知らないかもしれないので、すべての perldocs の完全なインデックス_{をhttp://perldoc.perl.orgで入手できることも指摘しておきます。perldoc perl}

Answer 2

私があなたの質問を正しく読んでいれば、existsについて混乱していると思います。ドキュメントから：

EXPRが存在する

ハッシュ要素または配列要素を指定する式を指定すると、対応する値が未定義であっても、ハッシュまたは配列内の指定された要素が初期化されていれば true を返します。

例えば：

use strict;
use warnings;

my %h = (
    foo => 1,
    bar => undef,
);

for my $k ( qw(foo bar baz) ){
    print $k, "\n" if exists $h{$k} and not defined $h{$k};
}

Answer 3

簡潔な答え：

 if ( exists $hash{$key} and not defined $hash{$key} ) {
    ...
 }