invoke: ./gosf2github.pl --usermap user_map.json --collaborators sarra-collab.json --repo MetPX/sarracenia --token lala --assignee 'petersilva' bugs.json
running on ubuntu 18.04, perl 5.26,
extracted and ran following snippet:
#!/usr/bin/env perl -w
use strict;
use JSON;
use Data::Dump qw(dump);
my $json = new JSON;
my @collabs = () ;
@collabs = parse_json_file('sarra-collab.json');
dump(@collabs);
my @user_map = () ;
@user_map = parse_json_file('user_map.json');
dump(@user_map);
sub parse_json_file {
my $f = shift;
open(F,$f) || die $f;
my $blob = join('',);
close(F);
return $json->decode($blob);
}
runs without errors, the files are valid json. will attach data.