如何在Perl中检查哈希的完整性？

如何解决如何在Perl中检查哈希的完整性？

| 我想知道从XML文件将其导入Perl时如何确保哈希是完整的吗？ XML文件包含VMware支持的来宾OS名称列表以及它们在其上运行的平台（32位，64位）。我能想到的最好的方法是创建一个循环并遍历哈希，以查看每个键是否都具有必需的子键。还有更好的主意吗？这是XML文件的示例，它是一个很大的文件。

<platforms>
  <asianux-64>
    <name>Asianux 3</name>
    <type>64-bit</type>
  </asianux-64>
  <asianux3>
    <name>Asianux 3</name>
    <type>32-bit</type>
  </asianux3>
  <debian3>
    <name>Debian GNU/Linux 3</name>
    <type>32-bit</type>
  </debian3>
  <debian3-64>
    <name>Debian GNU/Linux 3</name>
    <type>32-bit</type>
  </debian3-64>
  <debian4>
    <name>Debian GNU/Linux 4</name>
    <type>32-bit</type>
  </debian4>
  <debian4-64>
    <name>Debian GNU/Linux 4</name>
    <type>64-bit</type>
  </debian4-64>
  <debian5>
    <name>Debian GNU/Linux 5</name>
    <type>32-bit</type>
  </debian5>
  <debian5-64>
    <name>Debian GNU/Linux 5</name>
    <type>64-bit</type>
  </debian5-64>
</platforms>

** 重做 ** 好，让我再试一次，我有一个XML文件，其中包含支持VMware的操作系统列表。我将XML文件视为简单的“数据库”。我的脚本从文件读取到脚本中的哈希。此哈希用于将操作系统名称和平台插入到我的脚本创建的最终输出中。我的问题是验证XML文件未被篡改，以防止该文件被导入到哈希中。我几乎需要的只是一种验证所需密钥是否存在的方法。我认为通过散列进行简单循环查找所需内容就足够了。有什么我可以做的更好的吗？

解决方法

正如其他人指出的那样，问题很模糊。我想到一个选择，使用XML验证来完成任务，这里使用Relax NG：

use XML::LibXML;
my $doc = XML::LibXML->new->parse_file(\'thing.xml\');
my $rng = XML::LibXML::RelaxNG->new(string => <<ENDSCHEMA);
<?xml version=\"1.0\"?>
<element name=\"platforms\" xmlns=\"http://relaxng.org/ns/structure/1.0\">
  <zeroOrMore>
    <element>
      <anyName/>
      <element name=\"name\"> <text/> </element>
      <element name=\"type\"> <text/> </element>
    </element>
  </zeroOrMore>
</element>
ENDSCHEMA

$rng->validate($doc);

,好的，如果我了解您的要求，则需要检查给定的哈希表是否具有给定的键集。您可以进行简单的验证后：

my @required_keys = qw( foo bar baz );

my @missing_keys = grep !exists $hash{$_},@required_keys;

die \"Missing some required keys: @missing_keys\\n\" if @missing_keys;

die \"Extra keys found.\\n\" if @required_keys != keys %hash;

或者，您可以使用锁定的散列来防止插入无效密钥：

use Hash::Util qw( lock_keys );

my %hash;
my @allowed_keys = qw( foo bar baz );

lock_hash( %hash,@allowed_keys );

%hash = parse_config_file();  # Fatal error if a disallowed key is set.

die \"Missing some keys\\n\" if @allowed_keys != keys %hash;

,您为什么不相信导入正常？也许... 以XML和diff的形式显示哈希值？ ,在原始文件上使用“ 4”，然后遍历哈希并创建一个tmp文件并比较sha1sums。 ,如果您具有必需键的列表，则可以使用exist函数来确保所需键实际上存在：

my @requiredKeys = qw(foo bar barfoo foobar);
foreach my $key (@requiredKeys) {
   if (not exists $myHash{$key}) {
        print qq(Missing required key \"$key\"\\n);
   }
}

您不必遍历整个哈希-只需查找所需的密钥即可。 ,hmmmm有点原始，但是使用Data::Dumper将哈希内容打印到控制台，然后进行查看。 ,您所做的编辑表明您要验证XML结构。您应该关联DTD或XSD并获得perl DTD验证库 http://en.wikipedia.org/wiki/Document_Type_Definition

如何在Perl中检查哈希的完整性？

如何解决如何在Perl中检查哈希的完整性？

解决方法

相关推荐