little is definately on the right track here, but if you're this new to Perl, I'll try to help a little (being a little new to Perl myself, I can relate).

The lines you're using to print a message have the following effect:



open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresults\
+n";
print HTMLFILE "$HTML\n";
[download]

The first line opens a file with read/write access (the '>' means you'll be doing read/write - no character there would indicate read only). You're associating with this file the filehandle "HTMLFILE".

In the print statement, the filehandle is optional, like this:



print HTMLFILE "This will print to file";
print "This will print to STDOUT";
[download]

Hopefully this will help you get started.

-Sherlock

The first line opens a file with read/write access (the '>' means you'll be doing read/write - no character there would indicate read only). You're associating with this file the filehandle "HTMLFILE".

Almost--the ">" prefix means it's opening the file for write access only--and if the file exists already, it's truncated (that is to say, it's erased the moment you open the file with >). For read/write, you'd want to use +< or +>> (see open for why not to use +>, and why not to do this in a text file anyway).

When you omit the filehandle in the print statement, it prints to the selected filehandle, which is STDOUT when you start but can be changed using select (e.g. select (HTMLFILE);)




---

If God had meant us to fly, he would *never* have give us the railroads.
    --Michael Flanders

With your help my script now looks like this:

#!/usr/local/bin/perl -w

use strict;

my @machines = ('ldap0.slb.com','ldap.slb.com','ldap2.slb.com');
foreach my $machine (@machines) {
    my $response = `ping -l 64 -n 1 $machine`;
    my $output .= "$machine: $response";
    print "$output\n";
}
[download]

Now I just need to work on parsing out the garbage I don't want with regexen. : (

Thanks again,
protos

The quickest thing for you to do is to comment out the opening of the file and closing, ie: these lines

open(HTMLFILE,">pingresults.html") || die "Couldn't open pingresults";
close (HTMLFILE);
[download]

open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresults\
+n";
print HTMLFILE "$HTML\n";
close (HTMLFILE);
[download]

# open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresult
+s\n";
print STDOUT "$HTML\n";
# close (HTMLFILE);
[download]

#!/usr/local/bin/perl

my @machines =( 'host1.foo.com' , 'host2.foo.com' , 'host3.foo.com' );

my $HTML = "\n\n\n";
for ( @machines ) {
    $HTML .= $machine.': '.`ping $_`;
}
$HTML .= "\n\n\n";
print $HTML
[download]

#!/usr/local/bin/perl

  @machines = qw(
      host1.foo.com
      host2.foo.com
      host3.foo.com
  );
  $HTML = "\n";
  $HTML .= " \n";
  $HTML .= " 
  \n";
  foreach $machine (@machines) {
      $response = `ping $machine`;
      $HTML .= "$machine: $response";
  }
  $HTML .= " 

  \n";
$HTML .= " \n";
$HTML .= "\n";
open(HTMLFILE, ">pingresults.html") || die "Couldn't open pingresults\
+n";
print HTMLFILE "$HTML\n";
close (HTMLFILE);
[download]

print "$HTML\n";
[download]