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
json::rpc::server::daemon
JSON::RPC::Server::Daemon(3pm) User Contributed Perl Documentation JSON::RPC::Server::Daemon(3pm)NAME
JSON::RPC::Server::Daemon - JSON-RPC sever for daemon
SYNOPSIS
# Daemon version
#--------------------------
# In your daemon server script
use JSON::RPC::Server::Daemon;
JSON::RPC::Server::Daemon->new(LocalPort => 8080);
->dispatch({'/jsonrpc/API' => 'MyApp'})
->handle();
#--------------------------
# In your application class
package MyApp;
use base qw(JSON::RPC::Procedure); # Perl 5.6 or more than
sub echo : Public { # new version style. called by clients
# first argument is JSON::RPC::Server object.
return $_[1];
}
sub sum : Public(a:num, b:num) { # sets value into object member a, b.
my ($s, $obj) = @_;
# return a scalar value or a hashref or an arryaref.
return $obj->{a} + $obj->{b};
}
sub a_private_method : Private {
# ... can't be called by client
}
sub sum_old_style { # old version style. taken as Public
my ($s, @arg) = @_;
return $arg[0] + $arg[1];
}
DESCRIPTION
This module is for http daemon servers using HTTP::Daemon or HTTP::Daemon::SSL.
METHODS
They are inherited from the JSON::RPC::Server methods basically. The below methods are implemented in JSON::RPC::Server::Daemon.
new Creates new JSON::RPC::Server::Daemon object. Arguments are passed to HTTP::Daemon or HTTP::Daemon::SSL.
handle
Runs server object and returns a response.
retrieve_json_from_post
retrieves a JSON request from the body in POST method.
retrieve_json_from_get
In the protocol v1.1, 'GET' request method is also allowable. it retrieves a JSON request from the query string in GET method.
response
returns a response JSON data to a client.
SEE ALSO
HTTP::Daemon,
HTTP::Daemon::SSL,
JSON::RPC::Server,
JSON::RPC::Procedure,
JSON,
<http://json-rpc.org/wd/JSON-RPC-1-1-WD-20060807.html>,
<http://json-rpc.org/wiki/specification>,
AUTHOR
Makamaka Hannyaharamitu, <makamaka[at]cpan.org>
COPYRIGHT AND LICENSE
Copyright 2007-2008 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.10.1 2008-09-01 JSON::RPC::Server::Daemon(3pm)
11-29-2019
