Dashboard
PHP:
8.1.34
OS:
Linux
User:
uid288609
/
/
usr
/
share
/
doc
/
libjson-parse-perl
/
examples
📤 Upload
📝 New File
📁 New Folder
Close
Editing: true-subs.pl
#!/usr/bin/perl use warnings; use strict; use JSON::Parse; my $json = '{"yes":true,"no":false}'; my $jp = JSON::Parse->new (); $jp->set_true ('Yes, that is so true'); my $out = $jp->parse ($json); print $out->{yes}, "\n";
Save
Cancel