如何使用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;