03-30-2009
There was an extra ' which thru up a syntax err. :-)
I removed it and it works a treat. Thanks.
Quote:
awk -F[.,] '{for ( n = NF - 1; n >= 1; --n ) printf "%s,", $n; print $NF}'
Domo arigatou. Thank you.
How would I make it so, it checks 5 levels deep and if the fqdn is not 5 levels deep it would output nothing but keep the comma delimited.
For example:
Input:
aa.bb.cc.dd,78
Output:
dd,cc,bb,aa,,78
I need to keep the columns aligned no matter how short the fqdn is...
thanks & regards
Last edited by hazno; 03-30-2009 at 12:19 AM..
10 More Discussions You Might Find Interesting
1. Programming
I have a need to create a connection between an erlang node and my C program.
the name of an erlang node looks something like monitor@host1.ipc.co.za.
The piece of code I have to construct a node name looks like this:
char *hostname, *domainname, *nodename = "monitor", *thisfullnodename;
... (1 Reply)
Discussion started by: NanoSec
1 Replies
2. Solaris
Hello Folks,
Am facing an issue regarding sendmail. Sendmail is working on the server but it does not have an FQDN and the server is not connected to internet ie it does not have a public IP, it is in the intranet with 192.xxx.xxx.xx IP. How do we go about sending mail from this sendmail... (1 Reply)
Discussion started by: rcmrulzz
1 Replies
3. UNIX for Advanced & Expert Users
Hi,
I want a shell command through which I can parse an FQDN (Fully Qualified Domain Name) and check whether it is correct or not?
The FQDN can accept alphanumeric, . and - only.
I tried grep -E "^|\-|." <file name>, but I am not able to get the correct result.:confused:
Please provide... (1 Reply)
Discussion started by: g_rohit7
1 Replies
4. Solaris
I have some Solaris 10 machines that cannot send an email without @domain added. For instance, myusername@host.com will work, but just using myusername will not. I also have some Solaris 8 machines, but I can send emails with or without the @domain added. Does anyone know what is making sendmail on... (0 Replies)
Discussion started by: njhardc0re
0 Replies
5. Shell Programming and Scripting
I'm working on a rather large script atm (it already takes 9 arguments). As such, I need to obtain both a server name and domain from the FQDN. From this, I want to both populate the hostname of the server, as well as the domain line in the /etc/resolv.conf file.
Obviously, this isn't working. I... (10 Replies)
Discussion started by: msarro
10 Replies
6. Shell Programming and Scripting
Suppose I am in one server A .I want to know the FQDN of another host B then how can I get the FQDN of that host B from host A. (1 Reply)
Discussion started by: maitree
1 Replies
7. Shell Programming and Scripting
Hello,
Beginning with shell scipting, I'm trying to find in a csv file, the lines where the field related to hostname is displayed as an FQDN intead the hostname. (some lines are correct) and the to correct that inside the file:
Novell,11.0,UNIX Server,bscpsiws02,TxffnX1tX1HiDoyBerrzWA==... (2 Replies)
Discussion started by: Wonto
2 Replies
8. Solaris
Help with parsing regex in tripwire:
the rule is" This test verifies that all exported file systems found in /etc/exports specify a fully qualified domain name containing "thecss.com" or a NIS netgroup.."
regex that does not work is :
... (1 Reply)
Discussion started by: bathija12
1 Replies
9. AIX
Hey All,
We have defined abc.this.that in:
/etc/named.conf
and corresponding files but after the change that we verified through dig -x this.that ptr all is resolving correctly. However in the /var/log/named/named.log file we still see entries for:
4-May-2015 12:15:30.390 queries:... (6 Replies)
Discussion started by: Devyn
6 Replies
10. AIX
Hey All,
ldapsearch takes minutes when using FQDN vs IP. What could be some of the reasons for that?
Cheers,
DH (13 Replies)
Discussion started by: Devyn
13 Replies
LEARN ABOUT DEBIAN
net::bonjour::entry
Net::Bonjour::Entry(3pm) User Contributed Perl Documentation Net::Bonjour::Entry(3pm)
NAME
Net::Bonjour::Entry - Support module for mDNS service discovery (Apple's Bonjour)
SYNOPSIS
use Net::Bonjour;
my $res = Net::Bonjour->new(<service>[, <protocol>]); $res->discover;
foreach my $entry ( $res->entries ) { print $entry->name, "
"; }
DESCRIPTION
Net::Bonjour::Entry is a module used to manage entries returned by a mDNS service discovery (Apple's Bonjour). See Net::Bonjour for more
information.
METHODS
new([<fqdn>])
Creates a new Net::Bonjour::Entry object. The optional argument defines the fully qualifed domain name (FQDN) of the entry. Normal usage
of the Net::Bonjour module will not require the construction of Net::Bonjour::Entry objects, as they are automatically created during the
discovery process.
address
Returns the IP address of the entry.
all_attrs
Returns all the current attributes in the form of hashed array.
attribute(<attribute>)
Returns the specified attribute from the TXT record of the entry. TXT records are used to specify additional information, e.g. path for
http.
dnsrr([<record type>])
Returns an DNS answer packet of the entry. The output will be in the format of a Net::DNS::Packet object. The record type designates the
resource record to answer with, i.e. PTR, SRV, or TXT. The default is PTR.
fetch
Reloads the information for the entry via mDNS.
fqdn
Returns the fully qualifed domain name (FQDN) of entry. An example FQDN is server._afpovertcp._tcp.local
hostname
Returns the hostname of the server, e.g. 'server.local'.
name
Returns the name of the entry. In the case of the fqdn example, the name would be 'server'. This name may not be the hostname of the
server. For example, names for presence/tcp will be the name of the user and http/tcp will be title of the web resource.
port
Returns the TCP or UDP port of the entry.
sockaddr
Returns the binary socket address for the resource and can be used directly to bind() sockets.
EXAMPLES
Print out a list of local websites
print "<HTML><TITLE>Local Websites</TITLE>";
use Net::Bonjour;
my $res = Net::Bonjour->new('http');
$res->discover;
foreach my $entry ( $res->entries) {
printf "<A HREF='http://%s%s'>%s</A><BR>",
$entry->address, $entry->attribute('path'),
$entry->name;
}
print "</HTML>";
Find a service and connect to it
use Net::Bonjour;
my $res = Net::Bonjour->new('custom');
$res->discover;
my $entry = $res->shift_entry;
socket SOCK, PF_INET, SOCK_STREAM, scalar(getprotobyname('tcp'));
connect SOCK, $entry->sockaddr;
print SOCK "Send a message to the service";
while ($line = <SOCK>) { print $line; }
close SOCK;
SEE ALSO
Net::Bonjour
COPYRIGHT
This library is free software and can be distributed or modified under the same terms as Perl itself.
Bonjour (in this context) is a trademark of Apple Computer, Inc.
AUTHORS
The Net::Bonjour::Entry module was created by George Chlipala <george@walnutcs.com>
perl v5.10.0 2007-03-18 Net::Bonjour::Entry(3pm)