in reply to Re: How do I print output to STDOUT instead of to an HTML file?
in thread How do I print output to STDOUT instead of to an HTML file?

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

Replies are listed 'Best First'.
Re: Re: Re: How do I print output to STDOUT instead of to an HTML file?
by ChemBoy (Priest) on Apr 18, 2001 at 22:27 UTC
    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

[reply]
[d/l]
      Thanks ChemBoy - I was in a hurry and didn't notice the error. ChemBoy is correct, the '>' character opens the file for write access only.

      -Sherlock
[reply]

In Section Seekers of Perl Wisdom