如何从Perl哈希数组数据结构序列化生成YAML文档？

嘿，我来帮你搞定这个Perl序列化YAML的问题！你的代码里有几个容易忽略的小错误，咱们一步步修正过来：

你的代码里有两个关键的结构问题，这会导致序列化出来的YAML不符合预期：

• 数组初始化错误：@tagobj_header_table是数组变量，但你直接用{ ... }（哈希引用）赋值给它。Perl虽然不会报错，但正确的数组初始化应该用圆括号把元素包起来，也就是@tagobj_header_table = ( { ... } );
• lines的结构错误：你给lines赋值用了大括号{}，这会创建一个哈希引用，但你的offset/length是一组组有序的列表项，应该用方括号[]创建数组引用——不然YAML会把这些项当成哈希的键值对，完全不是你想要的列表结构。

先确保你已经安装了YAML模块（没装的话，用cpan YAML或者cpanm YAML就能搞定），然后用下面的代码：

use strict;
use warnings;
use YAML;

# 先假设这些变量已经有对应的值
my $tagobj_type = "sample_type";
my $tagobj_size = 200;
my $tagobj_blob = "binary_blob_content";

# 构建符合要求的哈希数组结构
my @tagobj_header_table = (
    {
        core => {
            type => $tagobj_type,
            size => $tagobj_size,
            blob => $tagobj_blob,
        },
        text => {
            lines => [
                { offset => 0, length => 1 },
                { offset => 1, length => 5 },
                { offset => 6, length => 7 },
                { offset => 13, length => 9 }, # 补全你省略的length值
            ],
        },
    },
);

# 序列化并打印YAML文档
print YAML::dump(@tagobj_header_table);

运行上面的代码后，你会得到格式正确的YAML，大概长这样：

---
core:
  blob: binary_blob_content
  size: 200
  type: sample_type
text:
  lines:
    - length: 1
      offset: 0
    - length: 5
      offset: 1
    - length: 7
      offset: 6
    - length: 9
      offset: 13

如果你的数据量比较大，想要更快的序列化速度，推荐换成YAML::XS模块——它是基于C实现的，性能比纯Perl的YAML模块好很多。用法几乎一样，只是序列化函数是YAML::XS::Dump（注意首字母大写）。

内容的提问来源于stack exchange，提问作者Jesse Lactin