$ping = `ping $host`;
$nslookup = `nslookup $host`;
[download]

foreach my $host (@hosts) {
  $ping = `ping $host`;
  $nslookup = `nslookup $host';
  print "Ping result is $ping \n";
  print "Nslookup result is $nslookup for host $host \n";
}
[download]

Tradez
Thank you for taking the time to answer my posting. Your advice is very much appreciated. since i would consider myself an almost middle tier Perl hack, i want to try to stay away from using system calls. i too think that would be the quickest and easiest way to complete this, but i am trying to use this as a means to grow my Perl skills. hence possibly trying to create my own module with scripts i already have made... :-) (maybe).
Thnx again though for the advice.
Ray

but that's what qx() or the backticks are for (personally, I like qx() more).

I understand what you're trying to say, but some beginners reading this might think backticks and qx() are two different things. Backticks and qx() are the same. qx() is an operator, `` is its shorthand. In fact, any non-whitespace character can be used as a delimiter (if it's alphanumeric, whitespace before the delimiter is required). qx() is not a function - my $dir = qx("ls -l") will probably not do what you want.



`ls -l`
qx(ls -l)
qx[ls -l]
qx`ls -l`
qx$ls -l$
qx!ls -l!
qx nls -ln
[download]

More info: perlop

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$
[download]

Necos,
Thank you for answering my posting. Since i work for a large company and this is for our production environment, they will not let me add a module to the machines with out it being in QA for a month. and even that gets pushed off. here's some of the code i have been using for the pdc dump and ipaddress lookup :

#!D:\Perl\bin -w

use strict;
use Win32::NetAdmin;

open (OUT,">list.txt") ||
    die "Cannot create machine list. :$!";

# This will get the list of machine names from the PDC

my @users;
Win32::NetAdmin::GetUsers("\\\\Weasel",'',\@users);
my @computers = grep { /\$$/ } @users;
foreach my $box (@computers) {
   chop $box;          # removes terminal char, must be $ from grep
   print OUT "$box\n"; # print each $box on a newline
}
close OUT;
[download]




# this will take a file and read it in and resolve hostname 
# to ip address 
#####################################################################
print "What file do you want to read?";
chomp($InFile = <STDIN>);
open(IN,$InFile) ||
    die "Cannot open $InFile: $!";
open(OUT,">results.txt") ||
    die "Cannot create results.txt: $!";
    while (<IN>) {
    my $hostname = $_;
    chomp $hostname;
    @addr = gethostbyname($hostname);    # note: an array now
    splice(@addr, 0, 4);                 # get rid of other stuff
    foreach (@addr)
    {
        print OUT join('.', unpack('C4', $_)) ."\t" . $hostname . "\n"
+;
    }
    }

close(IN);
close(OUT);
[download]

my $HKLM = Win32::Registry::_new(&HKEY_LOCAL_MACHINE); # _new is a pri
+vate constructor defined in the module
[download]

use strict;
use Win32::NetAdmin;
use Win32::Registry; #Yes, I know it's obsolete, but it's so darn cool
+!
#This is part of the original code... No need to edit this part.
open (OUT,">list.txt") ||
    die "Cannot create machine list. :$!";

# This will get the list of machine names from the PDC

my @users;
Win32::NetAdmin::GetUsers("\\\\Weasel",'',\@users);
my @computers = grep { /\$$/ } @users;
foreach my $box (@computers) {
   chop $box;          # removes terminal char, must be $ from grep
   print OUT "$box\n"; # print each $box on a newline
}
close OUT;

#This is the get-ip routine using Win32::Registry 
#(included in libwin32, so you shouldn't have any problems with instal
+ling it).
#The logic is: If you can connect to machine remotely, and snag it's i
+p,
#it's alive and running. In other words, it's a different kind of "pin
+g"
print "What file do you want to read?";
chomp($InFile = <STDIN>);
open(IN,$InFile) ||
    die "Cannot open $InFile: $!";
open(OUT,">results.txt") ||
    die "Cannot create results.txt: $!";

while (<IN>) {
        chomp;
    my $remote_obj;
    my $host = $_; #We need a copy of $_ to log the hostname
    $main::HKEY_LOCAL_MACHINE->Connect($_, $remote_obj); #Hardwired in
+to main:: namespace
    my $ip_obj;
    $remote_obj->Open('SYSTEM\\CurrentControlSet\\Services\\Tcpip\\Par
+ameters\\Interfaces' , $ip_obj) || print "open key failed\n";
    my $regkeys = [];
    $ip_obj->GetKeys($regkeys);
    foreach (@$regkeys) {
        my $temp_obj;
        my $ip;
        $ip_obj->Open( "$_", $temp_obj);
        $temp_obj->QueryValueEx( 'IPAddress' , REG_MULTI_SZ, $ip );
        $ip =~ s/^\s//; #Strip out leading whitespace (if at all)
        $ip =~ s/\s$//; #Strip out trailing whitespace (if at all)
        print OUT "$ip\t$host\n" if ( not ($ip =~ /^[0]/) );
    }
}
close(IN);
close(OUT);
[download]

Necos,
Thnx for taking the time to write the code. It is greatly appreciated. That's a cool way to get ip info and check to see if its alive. i would have never thought to do that. Guess that's one of the coolest things about Perl..... there are so many ways to do something. :)
Thnx again.
Ray