Had a go at simplifying Stomps two functions above. My goal was to get rid of eval, which I achieved for mk_json_object but couldn't achieve this for mk_json_object_one_val:
Last edited by Chubler_XL; 09-25-2019 at 06:43 PM..
These 2 Users Gave Thanks to Chubler_XL For This Post:
I couldn't find an existing thread that addressed this question, so hopefully this isn't redundant with anything previously posted. Here goes:
I am writing a C-Shell script that runs a program that takes an arbitrary number of parameters:
myprog -a file1 \
-b file2 \
-c file3 ... \
-n... (2 Replies)
I need help in writing a BASH SCRIPT of ls command.
for example:
$ ./do_ls.sh files
f1.txt
f2.jpeg
f3.doc
$ ./do_ls.sh dirs
folder1
folder2
folder3
My attempt:
#!/bin/bash
#
if test $# -d file
then
echo $dirs
else (3 Replies)
Hello,
I would like to modify an existing script of mine that uses a manually defined "MCVERSION" variable and make it define that variable instead based on this JSON file stored online:
https://s3.amazonaws.com/Minecraft.Download/versions/versions.json
Within that JSON, I 'm looking for... (4 Replies)
All,
Have a weird issue where i need to generate a report from GitHub monthly detailing user accounts and the last time they logged in. I'm using a windows box to do this (work issued) and would like to know if anyone has any experience scripting for GitAPI using windows / cygwin / powershell?... (9 Replies)
I am trying to automate editing of a json file using bash script.
The file I initially receive is
{
"appMap": {
"URL1": {
"name": "a"
},
"URL2": {
"name": "b"
},
"URL3": {
"name": "c"
},
}
WHat I would like to do is replace... (5 Replies)
i have a json data that looks like this:
{
"ip": "16.66.35.10",
"hostname": "No Hostname",
"city": "Stepney",
"region": "England",
"country": "GB",
"loc": "51.57,-0.0333",
"org": "AS6871 British Telecommunications PLC",
"postal": "E1"
}
im looking for a way to assign... (9 Replies)
Hello guys,
I want to parse a JSON file in order to get the data in a table form.
My JSON file is like this:
{
"document":{
"page":
},
{
"column":
}
]
},
{
... (6 Replies)
One of the great thing about unix is the ability to pipe multiple programs together to manipulate data. Plain, unstructured text is the most common type of data that is passed between programs, but these days JSON is becoming more popular.
I thought it would be fun to pipe together some command... (1 Reply)
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 REDHAT
net::netent
Net::netent(3pm) Perl Programmers Reference Guide Net::netent(3pm)NAME
Net::netent - by-name interface to Perl's built-in getnet*() functions
SYNOPSIS
use Net::netent qw(:FIELDS);
getnetbyname("loopback") or die "bad net";
printf "%s is %08X
", $n_name, $n_net;
use Net::netent;
$n = getnetbyname("loopback") or die "bad net";
{ # there's gotta be a better way, eh?
@bytes = unpack("C4", pack("N", $n->net));
shift @bytes while @bytes && $bytes[0] == 0;
}
printf "%s is %08X [%d.%d.%d.%d]
", $n->name, $n->net, @bytes;
DESCRIPTION
This module's default exports override the core getnetbyname() and getnetbyaddr() functions, replacing them with versions that return
"Net::netent" objects. This object has methods that return the similarly named structure field name from the C's netent structure from
netdb.h; namely name, aliases, addrtype, and net. The aliases method returns an array reference, the rest scalars.
You may also import all the structure fields directly into your namespace as regular variables using the :FIELDS import tag. (Note that
this still overrides your core functions.) Access these fields as variables named with a preceding "n_". Thus, "$net_obj->name()" corre-
sponds to $n_name if you import the fields. Array references are available as regular array variables, so for example "@{
$net_obj->aliases() }" would be simply @n_aliases.
The getnet() function is a simple front-end that forwards a numeric argument to getnetbyaddr(), and the rest to getnetbyname().
To access this functionality without the core overrides, pass the "use" an empty import list, and then access function functions with their
full qualified names. On the other hand, the built-ins are still available via the "CORE::" pseudo-package.
EXAMPLES
The getnet() functions do this in the Perl core:
sv_setiv(sv, (I32)nent->n_net);
The gethost() functions do this in the Perl core:
sv_setpvn(sv, hent->h_addr, len);
That means that the address comes back in binary for the host functions, and as a regular perl integer for the net ones. This seems a bug,
but here's how to deal with it:
use strict;
use Socket;
use Net::netent;
@ARGV = ('loopback') unless @ARGV;
my($n, $net);
for $net ( @ARGV ) {
unless ($n = getnetbyname($net)) {
warn "$0: no such net: $net
";
next;
}
printf "
%s is %s%s
",
$net,
lc($n->name) eq lc($net) ? "" : "*really* ",
$n->name;
print " aliases are ", join(", ", @{$n->aliases}), "
"
if @{$n->aliases};
# this is stupid; first, why is this not in binary?
# second, why am i going through these convolutions
# to make it looks right
{
my @a = unpack("C4", pack("N", $n->net));
shift @a while @a && $a[0] == 0;
printf " addr is %s [%d.%d.%d.%d]
", $n->net, @a;
}
if ($n = getnetbyaddr($n->net)) {
if (lc($n->name) ne lc($net)) {
printf " That addr reverses to net %s!
", $n->name;
$net = $n->name;
redo;
}
}
}
NOTE
While this class is currently implemented using the Class::Struct module to build a struct-like class, you shouldn't rely upon this.
AUTHOR
Tom Christiansen
perl v5.8.0 2002-06-01 Net::netent(3pm)