perl - 如何使用 perl 读取外部文件中的 perl 数据结构

Question

我有一个包含一些哈希引用（abc.pl）的 perl 文件，我想在另一个 perl 文件中打开这个文件，这样我就可以使用 Json XS 将它转换为 json。当我尝试打开 abc.pl 时，perl 将其读取为文本，我无法将其转换为 json。

所以，我只是想知道在另一个 perl 文件中读取 abc.pl 的方法，以便正确读取哈希引用，然后可以将其转换为 json。

Answer 1

假设您有一个看起来像这样的数据文件：

$VAR1 = {
          'bar' => 2,
          'baz' => 3,
          'foo' => 1
        };

您可以使用do函数评估结构。例如，

use strict;
use warnings;

use JSON::XS;

my $data = do 'abc.pl';
my $json = encode_json $data;

print $json;