leszekdubiel:

CPAN has JSON::Path which looks like it could do ?most/all? of what you need.

...roboticus

When your only tool is a hammer, all problems look like your thumb.

What is my question? Where do I need help? Is there a simpler way of doing such conversion JSON --> path/values? How to tell Perl to dive into JSON and find all simple data (scalars...) and return paths and values of them...

I actually think your code is fine. I once showed something related here, with somewhat simpler names for the paths. Also, this is the perfect case for unit tests, so you can be sure it does what you want.

Hi,

See JSON::Pointer, Mojo::JSON::Pointer :-)

Hope this helps!

Hi

This looks interesting

https://metacpan.org/pod/distribution/App-Cme/bin/cme

Config::Model::TkUI - Tk GUI to edit config data through Config::Model

Config::Model::Backend::Json - Read and write config as a JSON data structure

Here is my final solution to flattening JSON. I abandoned JSON Path, because keys were too complicated for headers in Excel file. I have used  ➔ (space, arrow, space) to separate elements of path. Elements of path are encoded as ordinary scalar JSON data, but inside texts arrows are change to double arrows (this way they never contain single arrow with spaces around).

Here is the function for flattening:

sub flattened_json { 
        my ($cur_node, $top_path, $put_here) = @_; 

        $top_path //= []; 
        $put_here //= {}; 

        if (ref $cur_node eq "HASH") { 
                flattened_json($$cur_node{$_}, [ @$top_path, $_ ], $pu
+t_here)
                        for sort keys %$cur_node; 
        } elsif (ref $cur_node eq "ARRAY") { 
                flattened_json($$cur_node[$_], [ @$top_path, $_ ], $pu
+t_here) 
                        for 0 .. @$cur_node - 1; 
        } else { 
                $$put_here{
                        join " ➔ ", 
                        map { $json_do->pretty(0)->encode($_) =~ s/&#1
+0132;/➔➔/gr } 
                        @$top_path
                } = $json_do->pretty(0)->encode($cur_node) =~ s/&#1013
+2;/➔➔/gr; 
        } 

        return $put_here; 
}
[download]

Here is the tool to replace JSON to paths with arrows json_to_paths:

 
#!/usr/bin/perl -CSDA

use utf8; 
use Modern::Perl qw{2017}; 
use JSON; 
use Text::Unidecode;

require "./narzędzia";

my $f = flattened_json(JSON->new->relaxed->decode(do { local $/; <STDI
+N> })); 

print "$_ &#10132; $$f{$_}\n" for 
    sort { 
        lc(unidecode($a =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09
+d", $1/ger)) 
        cmp 
        lc(unidecode($b =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09
+d", $1/ger)) 
    } 
    keys %$f;
[download]

and here is the tool paths_to_json to replace paths back to json:

 
#!/usr/bin/perl -CSDA

use utf8; 
use Modern::Perl qw{2017}; 
use JSON; 
use Text::Unidecode;

require "./narzędzia";

my $f = flattened_json(JSON->new->relaxed->decode(do { local $/; <STDI
+N> })); 

print "$_ &#10132; $$f{$_}\n" for 
    sort { 
        lc(unidecode($a =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09
+d", $1/ger)) 
        cmp 
        lc(unidecode($b =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09
+d", $1/ger)) 
    } 
    keys %$f;
[download]

It works like this:

 


# cat json.txt 
{
   "menu" : {
      "header" : "SVG Viewer",
      "items" : [
         {
            "id" : "Open"
         },
         {
            "id" : "OpenNew",
            "label" : "Open New"
         },
         null,
         {
            "id" : "ZoomIn",
            "label" : "Zoom In"
         },
         {
            "id" : "OriginalView",
            "label" : "Original View"
         }
      ]
   }
}


# cat json.txt | ./json_to_paths
"menu" ➔ "header" ➔ "SVG Viewer"
"menu" ➔ "items" ➔ 0 ➔ "id" ➔ "Open"
"menu" ➔ "items" ➔ 1 ➔ "id" ➔ "OpenNew"
"menu" ➔ "items" ➔ 1 ➔ "label" ➔ "Open New
+"
"menu" ➔ "items" ➔ 2 ➔ null
"menu" ➔ "items" ➔ 3 ➔ "id" ➔ "ZoomIn"
"menu" ➔ "items" ➔ 3 ➔ "label" ➔ "Zoom In"
"menu" ➔ "items" ➔ 4 ➔ "id" ➔ "OriginalVie
+w"
"menu" ➔ "items" ➔ 4 ➔ "label" ➔ "Original
+ View"


# cat json.txt | ./json_to_paths | ./paths_to_json 
{
   "menu" : {
      "header" : "SVG Viewer",
      "items" : [
         {
            "id" : "Open"
         },
         {
            "id" : "OpenNew",
            "label" : "Open New"
         },
         null,
         {
            "id" : "ZoomIn",
            "label" : "Zoom In"
         },
         {
            "id" : "OriginalView",
            "label" : "Original View"
         }
      ]
   }
}
[download]

PS. unfortunatelly perlmonks engine replaced arrows and special unicode chars with html entities... :( But I post anyway if anyone ever had the same problem

Brilliant. And then make the spreadsheeet read only. And then delete it. Maximum sharing. NOT