Shell Programming and Scripting

#!/usr/bin/perl
$nxdomain = "NXDOMAIN";
$ping = "100%";
while (defined($line = <>)) {
	chomp($line);
		print `nslookup $line`;
			if ($nxdomain) {
		print `ping -c 1 -w 2.0 $line`; }
			if ($ping) {
		print "IP Address '$line' is available.\n";
			}
	}

#!/bin/sh

while read LINE
do
        # This works for Linux ping.
        # Solaris ping just prints 'x is alive' all by itself
        # others may vary.
        if ping -c 1 $LINE
        then
                echo "$LINE is alive"
        else
                echo "Couldn't ping $LINE"
        fi
done

#!/usr/bin/perl
use warnings;
$seperator = "===============================================\n";
$ping = "100%";
open MYFILE, ">ips.txt" or die $!;
while (defined($line = <>)) {
	print "$line\n";
	$line =~ s/^\s+|\s+$//g;
	chomp($line);
	my $nslookupOut = `nslookup $line`;
	print $nslookupOut;
		if ($nslookupOut =~ /NXDOMAIN/) {
    my $pingOut = `ping -c 1 -w 1.0 $line`;
	print $pingOut;
    if ($pingOut =~ /$ping/) {
		print MYFILE "$line is available.\n"
		}
	}
}
close MYFILE;
print $seperator;
if (open MYFILE, "ips.txt") {
	chomp(my @lines = <MYFILE>);
	foreach (@lines) {
		print "$_\n";
		}
	}

#!/usr/bin/perl
#

use strict;
use Net::DNS;
use Net::Ping;

# create dns instance
my $ptr = Net::DNS::Resolver->new();

# create ping instance
my $do_ping = Net::Ping->new();

# prompt for ip address to lookup
print "IP Address -> ";
chomp(my $ip = <STDIN>);

# format ip address for reverse dns lookup
my $dns_suffix = ".in-addr.arpa";
my $reverse_ip = join('.', reverse(split /\./, $ip)) . $dns_suffix;

# perform dns lookup
my $response = $ptr->query($reverse_ip, 'PTR');
if($response) {
    print "PTR Record Found For $ip\n";
} else {
    print "PTR Not Found For $ip\n";
    print "Checking For Response From $ip\n";
    if($do_ping->ping($ip)) {
        print "$ip Is Responding To Pings\n";
    } else {
        print "$ip Is Not Responding To Pings\n";
    }
}

# done
exit(0);

dns=`nslookup $ip`