Perl Script for Transforming JSON

index.js

#!/usr/bin/env node

console.log(
`
FILENAME: transform-json.pl

#!/usr/bin/perl
#
# Takes a list of environment variables and applies
# - the values to the json files matching keys
# Expects the first argument to be path to json file

use JSON qw(encode_json decode_json);

my $json_file = $ARGV[0];
my $document = do {
    local $/ = undef;
    open my $fh, "<", $json_file
        or die "Could not open $json_file: $!";
    <$fh>;
};

my $json_obj = decode_json $document;

foreach $argnum (1 .. $#ARGV) {
  $json_obj->{$ARGV[$argnum]} = $ENV{$ARGV[$argnum]};
}

open $document, ">", $json_file;
print $document encode_json $json_obj;
close $document;
`
);

package.json

{"name": "perl-to-json", "version": "0.0.0", "bin": "./index.js"}

transform-json.pl

#!/usr/bin/perl
#
# Takes a list of environment variables and applies
# - the values to the json files matching keys
# Expects the first argument to be path to json file

use JSON qw(encode_json decode_json);

my $json_file = $ARGV[0];
my $document = do {
    local $/ = undef;
    open my $fh, "<", $json_file
        or die "Could not open $json_file: $!";
    <$fh>;
};

my $json_obj = decode_json $document;

foreach $argnum (1 .. $#ARGV) {
  $json_obj->{$ARGV[$argnum]} = $ENV{$ARGV[$argnum]};
}

open $document, ">", $json_file;
print $document encode_json $json_obj;
close $document;

index.js used to output transform-json.pl via npx