Select Code to Download

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

        return $put_here; 
}

 
#!/usr/bin/perl -CSDA

...
        lc(unidecode($b =~ s/ ➔ ([0-9]+)/sprintf " ➔ %09
+d", $1/ger)) 
    } 
    keys %$f;

 
#!/usr/bin/perl -CSDA

...
        lc(unidecode($b =~ s/ ➔ ([0-9]+)/sprintf " ➔ %09
+d", $1/ger)) 
    } 
    keys %$f;

 


...
      ]
   }
}