perlが％でハッシュを格納ENV

Question

ハッシュを格納するためにグローバル％ENVを（ab-）使用します。これは％ENVでは通常のハッシュよりも異なるように見えます。下のプログラムでは、$ENV{myhash}にはまだ'myhash' => 'HASH(0x7ffad8807380)'が含まれており、%ahashは依然として周囲にあります。その文字列を単に格納するのではなく、その位置のポイントに戻ることが可能ですか？私は、代わりにハッシュをシリアライズしてシリアル化することができたと思います。これを行う正しい方法は何ですか？

#!/usr/bin/perl -w 

use common::sense; 
use Data::Dumper; 

my %QENV = (nohash => 'noh'); 
my %ahash= (hv1 => 'htext1', hv2 => 'htext2'); 
$QENV{'myhash'} = \%ahash; 
print "works: ". Dumper(\%QENV)."\n\n\n"; 


$ENV{'myhash'} = \%ahash; 
print "fails: ". Dumper(\%ENV)."\n"; 

Answer 1

は魔法のハッシュです。プロセスの環境を反映します。それを読むことは環境から読み込み、それを書くことは環境を変える。

参照変数がまだ有効であることが保証されている場合（まだ有効範囲内にあるか、またはREFCNTが増加していることによって）、アドレスから参照変数を作成できます。

use strict; 
use warnings; 

use Data::Dumper; 

use Inline C => <<'__EOS__'; 

    SV* _newRV(IV iv) { 
     return newRV((SV*)iv); 
    } 

__EOS__ 

my %hash = (a => 1, b => 2); 
my $ref = \%hash; 
my $ref_string = "$ref"; 
my $addr = hex(($ref_string =~ /\((.*)\)/)[0]); 
my $ref2 = _newRV($addr); 
print(Dumper($ref2)); 

私はあなたがこれをしたいと考えていません。あるプロセスが別のプロセスが別のプロセスのメモリにアクセスできないため、別のプロセスがデータにアクセスすることを許可しません。

Answer 2

データを共有したいようです。ここでは、JSONファイルにデータを格納し、それを取得する方法を示す例を示します。 JSONはクロスランゲージなので、Perlだけでなく多くのプログラミング言語でデータを使用できます。この例は単一のスクリプトの中にありますが、それは2つの異なるPerlアプリケーションであると想像してください：

use warnings; 
use strict; 

use JSON; 

my $file = 'data.json'; 

my %h = (
    foo => 'bar', 
    raz => { 
     ABC => 123, 
     XYZ => [4, 5, 6], 
    } 
); 

my $json = encode_json \%h; 

# write the JSON to a file, and close it 

open my $fh, '>', $file or die $!; 
print $fh $json; 
close $fh or die $!; 

# open the JSON file, and read it 

open my $json_file, '<', $file or die $!; 

my $read_json; 

{ 
    local $/; 
    $read_json = <$json_file>; 
} 

my $perl_hash = decode_json $read_json;