perl - perlを使用して外部ファイルのperlデータ構造を読み取る方法

Question

いくつかのハッシュ参照 (abc.pl) を含む perl ファイルがあり、Json XS を使用して json に変換できるように、このファイルを別の perl ファイルで開きたいと考えています。abc.pl を開こうとすると、perl はそれをテキストとして読み取り、json に変換できません。

だから、ハッシュ参照が正しく読み取られ、jsonに変換できるように、別のperlファイルでabc.plを読み取る方法を知りたかっただけです。

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;