perl сохранение хеша в% ENV

Question

Я хочу (ab-) использовать глобальный% ENV для хранения хэша. Это выглядит по-разному для% 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

%ENV - магический хэш. Он отражает среду процесса. Чтение с него читается из среды, и запись на него изменяет среду.

Если вы можете гарантировать, что ссылочная переменная все еще жива (тем не менее, она по-прежнему находится в области видимости или с увеличением ее 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. Хотя этот пример находится в рамках одного сценария, представьте, что это два разных приложения 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;