perl을 사용하여 외부 파일의 perl 데이터 구조를 읽는 방법

Question

일부 해시 참조 (abc.pl)가 포함 된 perl 파일이 있는데이 파일을 다른 perl 파일에서 열어서 Json을 사용하여 json으로 변환 할 수 있습니다. XS. abc.pl을 열려고하면 perl이 텍스트로 읽으며 json으로 변환 할 수 없습니다.

그래서, 다른 perl 파일에서 abc.pl을 읽는 방법을 알고 싶습니다. 따라서 해시 참조가 올바르게 읽혀지고 json으로 변환 될 수 있습니다.

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

당신은 do 기능을 사용하여 구조를 평가할 수 :

Answer 1

이 같은 형태의 데이터 파일을 가지고 가정. 예 :

use strict; 
use warnings; 

use JSON::XS; 

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

print $json;