I am trying to write a perl program but I keep getting errors and I was
wondering if you can give me some pointers that might help. The program is
supposed to read from a file which has a list of server names then put
this names in an array. I then used a foreach loop that is supposed to
read each server name and execute this command: uname -r remsh $server.
This command is supposed to go to each server and then print out the
version of each server but this is the part of the program that I keep
getting errors on. This is the complete program that I have so far:
#!/usr/local/bin/perl
print "\n";
$data_file="testserv.txt";
open(DAT, $data_file) || die("Could not open file!");
@raw_data=<DAT>;
close(DAT);
print "\n";
foreach $server (@raw_data){
remsh $server uname -r;}
Please let me know what is the best way to go from server to server and
obtain the necessary information in a perl program.
Thanks a lot !!!!!
Selenis B. Leguisamon
Systems Management Integration Professional
IBM Global Services
Work: 908-231-4375
E-mail: [EMAIL PROTECTED]
