Hi friends,
Please see the below code carefully.
=======================================================
# Get batch date and Ord range
open OR,$ARGV;
while (<OR>) { # find the batch date
next if length $_ < 3; # BLANK LINE
# last if $. > 120; # sample should be good enough... (2 Replies)
Hi Folks,
I have written a perl script that reads data from excel sheet(.xls) using Spreadsheet::ParseExcel module. But the problem is this module doesn't work for excel sheets with extension .xlsx.
I have gone through Spreadsheet::XLSX module with which we can read from .xlsx file directly.... (1 Reply)
Hi
I want to grep a column 6 & column 7 from a CSV Format file & then i have to find the difference between these columns as these both columns contains date & time in 7/7/2012 9:20 this format . So kindly help me out ASAP.
But please kindly dis xls has to be converted in csv format as may... (5 Replies)
Hi all, i am using the following code to that use curl to that outputs a json, i am stuck it into a hash but i canot figure out how to get just the value i need ( hostname)
here is my code
use warnings;
use strict;
use Data::Dumper qw(Dumper);
##use JSON;
use JSON::XS;
my $curl=... (2 Replies)
Hi All
I have used the below code to print the dumper of a json
#!/usr/bin/perl
use LWP::Simple;
use JSON qw( decode_json );
use Data::Dumper;
use strict;
use warnings;
my (%list);
my $trendsurl =... (5 Replies)
Hello Experts,
I have written a code to bootstrap my application and it is failing becasue it is not executing as expected. Command is as follows in my json template,
"UserData" : { "Fn::Base64" : { "Fn::Join" : },
"-d", {"Ref" : "DBName"},
"-a", {"Ref" : "DBUser"},
... (2 Replies)
Dear friends,
I'm getting below API result and i would like to format them with Shell scripting.
Input
"id": 9,
"description": "short desc",
"name": "test",
"name_with_namespace": "ABCD-PDFF-PLATFORM-TEST-V1 / test",
"path": "test",
"path_with_namespace":... (7 Replies)
Hi All,
I am new to shell scripting, Need your help in creating a shell script which converts any unix command output to JSON format output.
example:
sample df -h command ouput :
Filesystem size used avail capacity Mounted
/dev/dsk/c1t0d0s0 8.1G 4.0G 4.0G 50% /... (13 Replies)
Discussion started by: balu1234
13 Replies
LEARN ABOUT MOJAVE
json_pp5.18
JSON_PP(1) Perl Programmers Reference Guide JSON_PP(1)NAME
json_pp - JSON::PP command utility
SYNOPSIS
json_pp [-v] [-f from_format] [-t to_format] [-json_opt options_to_json]
DESCRIPTION
json_pp converts between some input and output formats (one of them is JSON). This program was copied from json_xs and modified.
The default input format is json and the default output format is json with pretty option.
OPTIONS -f
-f from_format
Reads a data in the given format from STDIN.
Format types:
json
as JSON
eval
as Perl code
-t
Writes a data in the given format to STDOUT.
null
no action.
json
as JSON
dumper
as Data::Dumper
-json_opt
options to JSON::PP
Acceptable options are:
ascii latin1 utf8 pretty indent space_before space_after relaxed canonical allow_nonref
allow_singlequote allow_barekey allow_bignum loose escape_slash
-v
Verbose option, but currently no action in fact.
-V
Prints version and exits.
EXAMPLES
$ perl -e'print q|{"foo":"XX","bar":1234567890000000000000000}|' |
json_pp -f json -t dumper -json_opt pretty,utf8,allow_bignum
$VAR1 = {
'bar' => bless( {
'value' => [
'0000000',
'0000000',
'5678900',
'1234'
],
'sign' => '+'
}, 'Math::BigInt' ),
'foo' => "x{3042}x{3044}"
};
$ perl -e'print q|{"foo":"XX","bar":1234567890000000000000000}|' |
json_pp -f json -t dumper -json_opt pretty
$VAR1 = {
'bar' => '1234567890000000000000000',
'foo' => "x{e3}x{81}x{82}x{e3}x{81}x{84}"
};
SEE ALSO
JSON::PP, json_xs
AUTHOR
Makamaka Hannyaharamitu, <makamaka[at]cpan.org>
COPYRIGHT AND LICENSE
Copyright 2010 by Makamaka Hannyaharamitu
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.18.2 2018-08-17 JSON_PP(1)