Skip to content

Instantly share code, notes, and snippets.

@soh-i

soh-i/to_json.pl

Created October 9, 2016 11:18
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save soh-i/19821638581046e53f6e8518578e71e7 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save soh-i/19821638581046e53f6e8518578e71e7 to your computer and use it in GitHub Desktop.
Download ZIP
Data::Dumper output to JSON
Raw
to_json.pl
#!/usr/bin/env perl
use strict;
use warnings;
use JSON;
use Data::Dumper;
my $file = shift or die('Input Data::Dumper output');
my $data = do $file;
print to_json($data, {ascii => 1, pretty => 1});
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment