Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at -e line 1, <> line 1.
That's because your host's file has an empty line. "next unless" will solve that. Keep in mind that the host's file has to have always something like ip #hostname for this to work.
I have searched and found a few threads that have dealt with this, but the examples I've tried haven't seemed to help.
I am monitoring our database log for high checkpoints.
I can parse out the checkpoint value which can be anywhere from zero into a 3 digit number.
I set a variable to be the... (3 Replies)
Script
#!/bin/sh
hardware=PC
os=WindowsNET
for i in `cat newservers`
do
x=`sudo /opt/openv/netbackup/bin/admincmd/bpplclients |grep $i |head -40 |grep $i|awk '{print $3;exit}'`
if
then
echo "$i is already added"
else
echo "Need to add"
fi
done
O/p in debug mode
bash-2.05$... (3 Replies)
Hi.
I have three arrays.
@a=('AB','CD','EF');
@b=('AB,'DG',HK');
@c=('DD','TT','MM');
I want to compare the elements of the first two array and if they match then so some substition.
I tried using the if statement using the scalar value of the array but its not giving me any output.
... (7 Replies)
im trying to compare ipaddresses. i loop through an array to see if the ip is already is in the array and if it is it should set a flag and then i wont add it to the array. but its just adding all the ipaddresses to the array
if ]
then
... (3 Replies)
Hi!
I've come up with a ksh-script that produces one or more lists of hosts.
At the and of the script, I would like to print only those hosts that exists in all the lists.
Ex.
HOSTS="host1 host2 host3 host11"
HOSTS="host1 host2 host4"
HOSTS="host2 host11"
HOSTS="host2 host5 host6 host7... (1 Reply)
Is there a way to compare variables in a 'awk'?
I've been trying for a while and can't figure it out. I'm guessing its not possible :/
VAR=Bob
awk '$3 == $VAR { print $1 }' file.txt
Regards
Jikuu (4 Replies)
I have a script like this. Just couldn't get the comparison part work. Any thought? thanks,
#!/usr/bin/ksh -x
STEP=`echo $(basename $0 .ksh) | tr "" ""`
log=/skip.log
while read LINE
do
if
then
echo `date`: STEP $STEP skipped by user >> $log
exit 0
fi
done < $1
echo... (0 Replies)
I would like to grab complex html text between lines using variables. I am running Debian and using mksh shell.
Here is the part of the html that I want to extract from. I would like to extract the words 'to love,' and I would like to use the above and below lines as reference points.
... (3 Replies)
Hi,
I have 2 variables as given below. How can i compare them and say its matching ? Appreciate your help
VAR1=describe/read/write
VAR2=read/write/describeThanks,
Please use CODE tags as required by forum rules! (4 Replies)
Discussion started by: prince1987
4 Replies
LEARN ABOUT MOJAVE
net::hostent5.18
Net::hostent(3pm) Perl Programmers Reference Guide Net::hostent(3pm)NAME
Net::hostent - by-name interface to Perl's built-in gethost*() functions
SYNOPSIS
use Net::hostent;
DESCRIPTION
This module's default exports override the core gethostbyname() and gethostbyaddr() functions, replacing them with versions that return
"Net::hostent" objects. This object has methods that return the similarly named structure field name from the C's hostent structure from
netdb.h; namely name, aliases, addrtype, length, and addr_list. The aliases and addr_list methods return array reference, the rest
scalars. The addr method is equivalent to the zeroth element in the addr_list array reference.
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 "h_". Thus, "$host_obj->name()"
corresponds to $h_name if you import the fields. Array references are available as regular array variables, so for example "@{
$host_obj->aliases() }" would be simply @h_aliases.
The gethost() function is a simple front-end that forwards a numeric argument to gethostbyaddr() by way of Socket::inet_aton, and the rest
to gethostbyname().
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
use Net::hostent;
use Socket;
@ARGV = ('netscape.com') unless @ARGV;
for $host ( @ARGV ) {
unless ($h = gethost($host)) {
warn "$0: no such host: $host
";
next;
}
printf "
%s is %s%s
",
$host,
lc($h->name) eq lc($host) ? "" : "*really* ",
$h->name;
print " aliases are ", join(", ", @{$h->aliases}), "
"
if @{$h->aliases};
if ( @{$h->addr_list} > 1 ) {
my $i;
for $addr ( @{$h->addr_list} ) {
printf " addr #%d is [%s]
", $i++, inet_ntoa($addr);
}
} else {
printf " address is [%s]
", inet_ntoa($h->addr);
}
if ($h = gethostbyaddr($h->addr)) {
if (lc($h->name) ne lc($host)) {
printf " That addr reverses to host %s!
", $h->name;
$host = $h->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.18.2 2013-11-04 Net::hostent(3pm)