如何用Perl标准方法读取配置文件并提取dbo_db配置到哈希表？

你需要从Perl风格的配置文件里提取以dbo_db_开头的数据库配置，存到哈希表中，现在想用Perl核心模块Config::Tiny替代原来的自定义脚本，同时跳过无关配置项，以下是实现方案：

实现思路 #

Config::Tiny主要用于解析INI格式配置，但你的配置是Perl变量赋值格式，所以需要先过滤出目标行，再将其转换为Config::Tiny能识别的键值对格式，最后用模块完成解析。

完整脚本 #

#!/usr/bin/perl
use strict;
use warnings;
use Config::Tiny;
use Data::Dumper;

my $conf_file = 'in_file.txt';
my $filtered_content = '';

# 读取文件并过滤转换目标行
open my $fh, '<:encoding(UTF-8)', $conf_file or die "无法打开文件 $conf_file: $!";
while (<$fh>) {
    chomp;
    # 跳过空行、注释行
    next if /^\s*$/ || /^\s*#/;
    # 只处理dbo_db_开头的变量行
    if (/^\$dbo_db_/) {
        # 移除行内注释（/* ... */ 和 # ...）
        s/\/\*.*?\*\///g;
        s/#.*$//;
        # 转换为INI格式的键值对
        s/^\$//;          # 去掉变量前的$符号
        s/\s*=\s*/=/;     # 标准化等号前后的空格
        s/\s*;\s*$//;     # 移除行尾的分号（如果存在）
        $filtered_content .= "$_\n";
    }
}
close $fh;

# 给转换后的内容添加默认section（Config::Tiny要求必须有section）
$filtered_content = "[dbo_db]\n$filtered_content";
# 用Config::Tiny解析内容
my $config = Config::Tiny->read_string($filtered_content);

# 提取目标哈希表
my $hash = $config->{dbo_db};

print "提取的配置哈希表:\n", Dumper($hash);

脚本说明 #

• 过滤逻辑：和你原自定义脚本逻辑一致，跳过空行、注释行，只保留dbo_db_开头的配置行。
• 格式转换：把Perl变量格式$dbo_db_host1 = 'hostname';转换成INI格式的dbo_db_host1='hostname'，再添加默认section[dbo_db]——因为Config::Tiny要求配置必须包含section结构。
• 安全解析：用read_string方法解析转换后的内容，直接从section中取出哈希表，避免了原脚本中eval带来的安全风险。

对比原脚本的优势 #

• 消除eval带来的安全隐患（原脚本多次使用eval，若配置文件被篡改可能执行恶意代码）。
• 利用标准模块的成熟解析逻辑，减少手动处理字符串的出错概率。
• 代码结构更清晰，后续维护更方便。

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