Skip to content

Instantly share code, notes, and snippets.

@hirose31

hirose31/x.pl

Created June 10, 2020 06:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hirose31/24d9b4bfde9118a3b36c7eb805b3de0a to your computer and use it in GitHub Desktop.
Save hirose31/24d9b4bfde9118a3b36c7eb805b3de0a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
x.pl
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.010_000;
use Data::Dumper;
use JSON;
say $^V;
say $JSON::VERSION;
my $j = JSON->new;
say $j->backend;
my $text = "2013-12-04\n2013-07-26\n";
my $r = $j->decode_prefix($text);
say Dumper($r);
say 'owari';
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment