Skip to content

Instantly share code, notes, and snippets.

@hirose31

hirose31/x.pl

Created Jun 10, 2020
Embed
What would you like to do?
#!/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