perl - 如何解析具有特定格式数据的文本文件并使用 perl 将其存储在哈希中

Question

我有一个文本文件，其中包含以下格式的一些数据

%app_lookup_strings = (
                      common => {
                                  password => "password: ",
                                  select_action => "Select action => ",
                                  mgt_close => "BSA_MgtClose",
                                },

我必须从文本文件中读取这些数据并将其存储回哈希中。我需要知道如何解析具有此类数据的文本文件，并将其以类似的哈希方式存储，如上所示。

Answer 1

如果您的文本文件只包含一个哈希，最直接的解决方案是：

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

my %hash = do 'text.file';

print Dumper \%hash;

输出：

$VAR1 = {
          'common' => {
                        'mgt_close' => 'BSA_MgtClose',
                        'password' => 'password: ',
                        'select_action' => 'Select action => '
                      }
        };