Cannot assign lvalue to path string of the form '$.l1.l2'

[manukmohan]

Need: I have a hash of the form { "a" => "b" }. I need to insert a hash into it to look like { "a" => "b", "l1"=> { "l2" => "l2_value" } }

Code (using JSON::Path) :
my $hash = { "a" => "b" }; JSON::Path->new('$.l1.l2')->value($hash) = "l2_value"; print JSON::Create->new()->run($hash);

Expected output: { "a" : "b", "l1": { "l2" : "l2_value" } }

Obtained output: { "a" : "b", "l1": null }

[PopeFelix]

I'm working on this, but I haven't figured out how to fix it yet.

[manukmohan]

Hi PopeFelix,

I can get this done in 2 ways.

1. Setting an empty hash at '$.l1' prior to setting value at '$.l1.l2' makes it work.
   my $hash = { "a" => "b" }; JSON::Path->new('$.l1')->value($hash) = {}; #adding this statement fixes it JSON::Path->new('$.l1.l2')->value($hash) = "l2_value"; print JSON::Create->new()->run($hash);

2. Data::PathSimple module allows this, but requires you to convert json path to dpath
   use Data::PathSimple qw{ set }; my $hash = { "a" => "b" }; my $jpath = '$.l1.l2'; #convert jpath to dpath $jpath =~ s/^\$//; #remove $ from jpath's beginning $jpath =~ s/\./\//g; #replace all . with / in jpath set($hash, $jpath, "l2_value"); print JSON::Create->new()->run($hash);

While neither are true fixes for the issue at hand, sharing them seemed a good idea.

[PopeFelix]

Great! Thanks for that.

…

On Wed, Sep 21, 2022 at 8:49 PM manukmohan ***@***.***> wrote: Hi PopeFelix, I can get this done in 2 ways. 1. Setting an empty hash at '$.l1' prior to setting value at '$.l1.l2' makes it work. my $hash = { "a" => "b" }; JSON::Path->new('$.l1')->value($hash) = {}; #adding this statement fixes it JSON::Path->new('$.l1.l2')->value($hash) = "l2_value"; print JSON::Create->new()->run($hash); 2. Data::PathSimple module allows this, but requires you to convert json path to dpath use Data::PathSimple qw{ set }; my $hash = { "a" => "b" }; my $jpath = '$.l1.l2'; #convert jpath to dpath $jpath =~ s/^\$//; #remove $ from jpath's beginning $jpath =~ s/\./\//g; #replace all . with / in jpath set($hash, $jpath, "l2_value"); print JSON::Create->new()->run($hash); While neither are true fixes for the issue at hand, sharing them seemed a good idea. — Reply to this email directly, view it on GitHub <#32 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AABGUGHUIDEJA3OW325PCPDV7O3KJANCNFSM55QVEUSA> . You are receiving this because you were assigned.Message ID: ***@***.***>

-- Kit Peters, W0KEH GPG public key fingerpint: D4FF AA62 AFEA 83D6 CC98 ACE5 6FAE 7E74 7F56 ED1D Hello to any and all NSA, DEA, or other government or non-government agents reading this email. Tell me about your life; I'll tell you about mine.