Thats Great!! I really appreciate it. Thank you so much.. you made my day as I was struggling from quite few days.
This piece of code didn't work for me. Anyways this is not required in my case I believe. --- Firstly if the JSON structure contains array of objects decend() stops drilling down at the array.
Code:
def decend(p;f):
. as $in
| if type == "object" then
reduce keys_unsorted[] as $key
( {}; . + { ($key) : ($in[$key] | decend($in;f)) } ) | f
elif type == "array" then map( decend($in;f) ) | f
elif (p | type) == "array" then .
else f
end;
This piece of code, I mean the Regex is working --- Second the IP address RE is inaccurate and and gets false positives eg 999.999.999.999.
Code:
decend(.;
if type == "string" and
test(
"^(" +
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)" +
"\\.){3}" +
"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)" +
"$")
then [ . ] else . end)
Hi All,
I want to Rename/Convert all the .doc files in to .pdf format.
I am using the following Script. But the final output is not proper.
##########################################
cd /u13/prepaid/ftpdata/INfiles/sap/
for name in `ls *.doc`
do
name1=`echo $name | sed -e... (11 Replies)
Hi
I have a line/string as follows:
A=" 3498 NORDEA - INDX LINKED NORY"
which was converted into an array of characters:
p321$ echo "${ARR}"
3 4 9 8 N O R D E A - I N D X L I N K E D N O R Y
When I am trying print this array there are blank... (4 Replies)
Hi,
I am having two set of files with different number of columns and rows.
A set of files have only single row with 20 columns.
B set of files have 1000s of rows with 5 columns.
both set contains equal number of files.
I want to save all the 20 columns of A in variables one by one and... (21 Replies)
Hi All,
sessionid_remote=$(echo "select odb_sessionid from sysopendb where odb_dbname='syscdr';" | sudo -u cucluster ssh ucbu-aricent-vm93 "source /opt/cisco/connection/lib/connection.profile; $INFORMIXDIR/bin/dbaccess sysmaster@ciscounity")
for sid in $sessionid_remote;do
if * ]];... (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 everyone,
I have created a workflow that will pull down data via a RESTful API in JSON, then my code parses and modifies said data. The problem I have is that these APIs I am working with only accept XML to PUT/POST data, and I am looking for an easy way to convert my JSON file to XML.
... (2 Replies)
I have input data looks like this which is a part of a csv file
7,1265,76548,"0102:04"
8,1266,76545,"0112:04"
I need to make the output data should look like this and the output data will be part of text file:
7|1265000 |7654899 |A|
8|12660000 |76545999 |B|
The logic behind the... (6 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 DEBIAN
test::json
Test::JSON(3pm) User Contributed Perl Documentation Test::JSON(3pm)NAME
Test::JSON - Test JSON data
VERSION
Version 0.11
SYNOPSIS
use Test::JSON;
is_valid_json $json, '... json is well formed';
is_json $json, $expected_json, '... and it matches what we expected';
EXPORT
o is_valid_json
o is_json
DESCRIPTION
JavaScript Object Notation (JSON) is a lightweight data interchange format. Test::JSON makes it easy to verify that you have built valid
JSON and that it matches your expected output.
See <http://www.json.org/> for more information.
TESTS
is_valid_json
is_valid_json $json, '... json is well formed';
Test passes if the string passed is valid JSON.
is_json
is_json $json, $expected_json, '... and it matches what we expected';
Test passes if the two JSON strings are valid JSON and evaluate to the same data structure.
Test::Differences is used to provide easy diagnostics of why the JSON structures did not match. For example:
Failed test '... and identical JSON should match'
in t/10testjson.t at line 14.
+----+---------------------------+---------------------------+
| Elt|Got |Expected |
+----+---------------------------+---------------------------+
| 0|{ |{ |
| 1| bool => '1', | bool => '1', |
| 2| description => bless( { | description => bless( { |
| 3| value => undef | value => undef |
| 4| }, 'JSON::NotString' ), | }, 'JSON::NotString' ), |
| 5| id => '1', | id => '1', |
* 6| name => 'foo' | name => 'fo' *
| 7|} |} |
+----+---------------------------+---------------------------+
AUTHOR
Curtis "Ovid" Poe, "<ovid@cpan.org>"
BUGS
Please report any bugs or feature requests to "bug-test-json@rt.cpan.org", or through the web interface at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-JSON>. I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
SEE ALSO
This test module uses JSON::Any and Test::Differences.
ACKNOWLEDGEMENTS
The development of this module was sponsored by Kineticode, <http://www.kineticode.com/>, the leading provider of services for the
Bricolage content management system, <http://www.bricolage.cc/>.
Thanks to Makamaka Hannyaharamitu "makamaka@cpan.org" for a patch to make this work with JSON 2.0.
Thanks to Stevan Little for suggesting a switch to JSON::Any. This makes it easier for this module to work with whatever JSON module you
have installed.
COPYRIGHT &; LICENSE
Copyright 2005-2007 Curtis "Ovid" Poe, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2009-08-09 Test::JSON(3pm)
11-29-2019
