Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

karlgoethebier's scratchpad

by karlgoethebier (Parson)
on Nov 02, 2012 at 12:43 UTC ( #1001959=scratchpad: print w/replies, xml ) Need Help??

For Lady_Aleena:

#!/usr/bin/env perl use strict; use warnings; use Cpanel::JSON::XS; use feature qw(say); use Data::Dump; use Path::Tiny; my @data = <DATA>; chomp @data; dd \@data; my $json = encode_json \@data; dd $json; my $file = path(q(json.dat)); $file->spew_utf8($json); my $data = decode_json $file->slurp_utf8; dd $data; say q(Cool beans!); __DATA__ foo bar nose cuke
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2017-05-29 16:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?