如何修改Perl脚本从外部文本文件读取映射替换XML属性？

步骤1：定义映射文件格式 #

先准备一个纯文本映射文件（比如host_mappings.txt），每行存储旧值与新值的对应关系，用竖线|分隔（如果值里不含竖线，用这个分隔符最稳妥）：

host001|server-01
host002|server-02
host003|server-03
# 可以加注释，脚本会跳过空行和注释行

步骤2：改造原Perl脚本 #

核心是先把映射文件加载到哈希表，再在XML标签处理逻辑里用哈希表批量替换属性值：

use strict;
use warnings;
use XML::Twig;

# 加载映射文件到哈希表
my %host_map;
my $mapping_file = 'host_mappings.txt';

open my $fh, '<', $mapping_file or die "无法打开映射文件: $!";
while (my $line = <$fh>) {
    chomp $line;
    next if $line =~ /^\s*$/ || $line =~ /^#/; # 跳过空行和注释行
    my ($old_val, $new_val) = split /\|/, $line, 2; # 按竖线拆分，最多拆2段
    $host_map{$old_val} = $new_val if $old_val && $new_val; # 仅保留有效映射
}
close $fh;

# 配置XML处理规则
my $twig = XML::Twig->new(
    twig_handlers => {
        # 处理<host>标签的id属性
        'host' => sub {
            my ($twig, $elem) = @_;
            my $old_id = $elem->att('id');
            $elem->set_att('id', $host_map{$old_id}) if exists $host_map{$old_id};
        },
        # 处理<guest>标签的host属性
        'guest' => sub {
            my ($twig, $elem) = @_;
            my $old_host = $elem->att('host');
            $elem->set_att('host', $host_map{$old_host}) if exists $host_map{$old_host};
        }
    },
    pretty_print => 'indented', # 保持XML输出格式美观
);

# 处理输入XML并生成输出
$twig->parsefile('input.xml'); # 替换为你的源XML路径
$twig->print_to_file('output.xml'); # 输出到新文件，避免覆盖原文件

关键说明 #

• 映射文件的分隔符可以自定义：如果需要用空格或制表符，把split /\|/, $line, 2改成split /\s+/, $line, 2即可，但要确保旧值/新值里不含对应分隔符。
• 脚本会跳过空行和以#开头的注释行，方便你在映射文件里加备注。
• 只有哈希表中存在的旧值才会被替换，不存在的属性值保持原样，避免误改。
• 始终输出到新文件（output.xml），测试验证无误后再替换原XML文件。
• 如果需要批量处理多个XML文件，可以在脚本里添加文件遍历逻辑，比如用glob获取目录下所有XML文件循环处理。

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