Perl向单个YAML文档写入多头部并生成指定结构的技术问询

没问题，我来帮你搞定用Perl生成目标YAML结构的事儿！要生成包含core和text.lines的单个YAML文档，关键是把两部分内容整合到同一个顶级哈希结构里，再用Perl的YAML模块序列化输出。

第一步：准备YAML序列化模块 #

首先推荐用YAML::XS（性能好、兼容性强），如果没安装的话，用CPAN安装：

cpanm YAML::XS

或者用系统包管理器（比如Debian/Ubuntu的libyaml-libyaml-perl）。

第二步：构建完整的YAML数据结构 #

你之前的两个函数是分开生成core和text部分，现在要把它们合并成一个完整的哈希，这样序列化后就是单个YAML文档。这里我把参数改成函数传入的形式（避免全局变量，更健壮）：

use YAML::XS;

# 生成完整的tagobj头部结构
sub make_tagobj_full_header {
    my (%params) = @_;
    
    # 把core和text整合到同一个顶级哈希中
    return {
        core => {
            type => $params{type},
            size => $params{size},
            blob => $params{blob},
        },
        text => {
            lines => $params{lines}, # 传入lines数组的引用
        }
    };
}

# （可选）如果你的text lines需要单独生成，可以写个辅助函数
sub generate_text_lines {
    # 这里可以根据你的业务逻辑生成lines数组，比如从文件/解析数据获取
    return [
        { offset => 0, length => 1 },
        { offset => 1, length => 5 },
        { offset => 6, length => 7 },
        { offset => 13, length => 13 },
        { offset => 26, length => 1 },
    ];
}

第三步：序列化并写入文件 #

接下来调用函数生成结构，再写入到目标YAML文件：

# 示例变量（替换成你的实际值）
my $tagobj_type = "your_type";
my $tagobj_size = 123;
my $tagobj_blob = "your_blob_content";

# 获取text lines数组引用
my $text_lines = generate_text_lines();

# 生成完整的YAML结构
my $yaml_data = make_tagobj_full_header(
    type  => $tagobj_type,
    size  => $tagobj_size,
    blob  => $tagobj_blob,
    lines => $text_lines,
);

# 写入到YAML文件
open my $yaml_fh, '>', 'target.yaml' or die "无法打开文件: $!";
print $yaml_fh Dump($yaml_data);
close $yaml_fh;

验证输出结果 #

运行代码后，target.yaml的内容会完全符合你要的结构：

---
core:
  type: your_type
  size: 123
  blob: your_blob_content
text:
  lines:
    - offset: 0
      length: 1
    - offset: 1
      length: 5
    - offset: 6
      length: 7
    - offset: 13
      length: 13
    - offset: 26
      length: 1

小提示 #

• 如果需要调整YAML的格式（比如缩进、是否保留---开头），可以修改YAML::XS的全局变量，比如$YAML::XS::Indent = 2;设置缩进为2空格，$YAML::XS::Header = 0;去掉开头的---（不过你的目标结构需要---，默认就会加）。
• 尽量避免使用全局变量，用函数参数传递数据，让代码更易维护和复用。

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