检查 Perl 哈希中的键/值是否存在
如果你试图访问不存在的 Perl 散列表中的键/值对,通常会得到未定义值,并且如果你打开了警告,则会在运行时生成警告。你可以使用存在函数来解决此问题,如果存在指定的键,无论其值是什么,该函数都会返回 true −
示例
#!/usr/bin/perl %data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40); if( exists($data{'Lisa'} ) ) { print "Lisa is $data{'Lisa'} years old\n"; } else { print "I don't know age of Lisa\n"; }
这里我们引入了 IF...ELSE 语句,我们将在一个单独的章节中学习它。现在,你只需要假设if( 条件 )部分仅在给定条件为 true 时才会执行,否则else 部分将被执行。因此,当我们执行以上程序时,它会产生以下结果,因为这里给定的条件 exists($data{'Lisa'} 返回 true −
输出
Lisa is 30 years old
广告