Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl dig script
Top Forums Shell Programming and Scripting Perl dig script Post 302966032 by timj123 on Saturday 6th of February 2016 04:20:32 PM
Old 02-06-2016
Perl dig script
Experts - I was hoping someone could help me out with the logic on this perl script.
I'm trying to run some dig commands and parse in such a way as to group them together.

Here's what I have so far.

Code:
#!/usr/bin/perl


system(clear);

my @host = qw/yahoo.com
google.com
/;

 foreach $i (@host) {
   $site{$i}=[];
   my @output = qx/dig -t aaaa +noall +answer $i/;
   push @{$site{$i}}, @output;
 }

 foreach $j (sort keys %site) {
   $site{$j}[1]=[];
   my @aaaa = @{$site{$j}};
     for $ip (@aaaa) {
       my @IP = split /\s+/,$aaaa[$ip];
       my @pingout = qx/ping6 -c3 $IP[4]/;

     }
   push @{$site{$j}[1]},@pingout;
 }

I'm trying to create a list like the following:

Code:
yahoo.com
    yahoo.com.		77	IN	AAAA	2001:4998:44:204::a7
      PING 2001:4998:44:204::a7(2001:4998:44:204::a7) 56 data bytes
      64 bytes from 2001:4998:44:204::a7: icmp_seq=1 ttl=52 time=90.9 ms

      --- 2001:4998:44:204::a7 ping statistics ---
      1 packets transmitted, 1 received, 0% packet loss, time 0ms
      rtt min/avg/max/mdev = 90.918/90.918/90.918/0.000 ms
    yahoo.com.		77	IN	AAAA	2001:4998:58:c02::a9
      PING 2001:4998:58:c02::a9(2001:4998:58:c02::a9) 56 data bytes
      64 bytes from 2001:4998:58:c02::a9: icmp_seq=1 ttl=48 time=92.8 ms

      --- 2001:4998:58:c02::a9 ping statistics ---
      1 packets transmitted, 1 received, 0% packet loss, time 0ms
      rtt min/avg/max/mdev = 92.878/92.878/92.878/0.000 ms
    yahoo.com.		77	IN	AAAA	2001:4998:c:a06::2:4008
      PING 2001:4998:c:a06::2:4008(2001:4998:c:a06::2:4008) 56 data bytes
      64 bytes from 2001:4998:c:a06::2:4008: icmp_seq=1 ttl=49 time=120 ms

      --- 2001:4998:c:a06::2:4008 ping statistics ---
      1 packets transmitted, 1 received, 0% packet loss, time 0ms
      rtt min/avg/max/mdev = 120.716/120.716/120.716/0.000 ms

google.com
    google.com.		182	IN	AAAA	2607:f8b0:4007:806::200e
      PING 2607:f8b0:4007:806::200e(2607:f8b0:4007:806::200e) 56 data bytes
      64 bytes from 2607:f8b0:4007:806::200e: icmp_seq=1 ttl=56 time=62.4 ms

      --- 2607:f8b0:4007:806::200e ping statistics ---
      1 packets transmitted, 1 received, 0% packet loss, time 0ms
      rtt min/avg/max/mdev = 62.458/62.458/62.458/0.000 ms

Does anyone have any advice on this?
Thanks in advance.
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

dig

what is dig? Is it just a advanced type of nslookup? how to use it? //nicke:confused: (1 Reply)
Discussion started by: nicke30
1 Replies

2. UNIX for Dummies Questions & Answers

BIND and dig errors

Hi all, I'm running BIND 9.1.3 and the accompanying `dig and nslookup' on a vanilla Redhat 7.2 Linux box. I've produced all of my Zone data and config files (I used h2n with some manual tweaks to do this, as some >= v8.2 BIND features aren't properly supported as far as I can see). Im my... (6 Replies)
Discussion started by: sam_pointer
6 Replies

3. Shell Programming and Scripting

New to UNIX - what script to dig into to

First I would like to thank you for your time in running a great Forum! Background - Windows/ASP/VB COM/SQL Server programmer/Webmaster. Desire - To build similar skillset on UNIX. I am looking at learning Perl or Python (maybe Jython due to connection to Java). I have a brief background... (3 Replies)
Discussion started by: nimrod
3 Replies

4. UNIX for Dummies Questions & Answers

linux dig command

When I use the linux dig command such as #dig yahoo.com it resolves but when I use the same command as root it gives me error "Segmentation Fault" Please advise I am completly baffled. (1 Reply)
Discussion started by: Tirmazi
1 Replies

5. UNIX for Dummies Questions & Answers

Dig command output?

all, i am newbie to dns bind . Any help is very appreciated. I am using dig command to view the records in the config. I am expecting the following comamnds to display all the A (Address records) in the zone data file. my zone data file looks like this ------------------- $ORIGIN . $TTL... (2 Replies)
Discussion started by: sujathab
2 Replies

6. UNIX for Dummies Questions & Answers

dig query time

Hi Guys, I just need a confirmation if what think i know is right . dig yahoo.com ; <<>> DiG 9.7.0-P1 <<>> yahoo.com ;; global options: +cmd ;; Got answer: ;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 27410 ;; flags: qr rd ra; QUERY: 1, ANSWER: 5, AUTHORITY: 0, ADDITIONAL: 0 ... (1 Reply)
Discussion started by: mtomar
1 Replies

7. IP Networking

The dig command

Can I use two different DNS servers in the one command in the form of primary and secondary. Take this for example: dig @<primaryAddress> @<secondaryAddress> MX domain.tld So if primary address is down, it will use the secondary address as a backup. It seems to work when testing, but thought... (1 Reply)
Discussion started by: neil_is_ere
1 Replies

8. UNIX for Advanced & Expert Users

DIG uses localhost

Hi, I have these entries in the /etc/esolv.conf: ------------ domain xxxxxx search yyyyyy nameserver 127.0.0.1 nameserver aaaaaaaaaaaaaaaa nameserver bbbbbbbbbbbbbbbb ------------- When I use 'dig' or 'nslookup' command, like 'dig yahoo.com' it uses the localhost as the server. I... (2 Replies)
Discussion started by: chaandana
2 Replies

9. IP Networking

DNS: Dig returns different responses...

Hey everyone, Okay, so I've been having some fun with the dig command, and wanted to dig my old school. Two questions came up from this. So I: dig @8.8.8.8 +recurse njcu.edu ANY and the result is about 8 records, including the SOA record. One of them is this weird TXT record, and the other is... (1 Reply)
Discussion started by: Lost in Cyberia
1 Replies

10. Shell Programming and Scripting

Dig match

Hi, I am testing some code to match a grep to see if one of the dns server exists but it does not seem to match: ERROR: ======= CRITICAL: google.com DNS : ns3.google.com NOT found CODE: ===== if ; then echo "OK: google.com DNS : ns3.google.com exists" else echo... (5 Replies)
Discussion started by: dmccabe
5 Replies

LEARN ABOUT SUSE

sieveshell

SIEVESHELL(1)						User Contributed Perl Documentation					     SIEVESHELL(1)

NAME

       sieveshell - remotely manipulate sieve scripts

SYNOPSIS

       sieveshell [--user=user] [--authname=authname] [--realm=realm] [--exec=script] server[:port]

       sieveshell --help

DESCRIPTION

       sieveshell allows users to manipulate their scripts on a remote server.	It works via MANAGESIEVE, a work in progress.

       The following commands are recognized:

	   list list scripts on server.

	   put <filename> upload script to server.

	   get <name> [<filename>] get script. if no filename display to stdout

	   delete <name> delete script.

	   activate <name> activate script.

	   deactivate deactivate all scripts.

OPTIONS

       -u user, --user=user
	   The authorization name to request; by default, derived from the authentication credentials.

       -a authname, --authname=authname
	   The user to use for authentication (defaults to current user).

       -r realm, --realm=realm
	   The realm to attempt authentication in.

       -e script, --exec=script
	   Instead of working interactively, run commands from script, and exit when done.

REFERENCES

       [MANAGESIEVE] Martin, T.; "A Protocol for Remotely Managing Sieve Scripts", draft-ietf-managesieve-03.txt, Mirapoint, Inc.; May 2001, work
       in progress.

AUTHOR

       Tim Martin <tmartin@mirapoint.com>, and the rest of the Cyrus team <cyrus-bugs@andrew.cmu.edu>.

perl v5.10.0							    2008-04-04							     SIEVESHELL(1)
All times are GMT -4. The time now is 07:30 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy