On Fri, 16 Jan 2004, Larry Guest wrote:
> I have a small script that does some admin work for me.
>
> What I need to do now is not only have is display information to STDERR
> and STDOUT but also write the same information I see when I run the
> command to a file.
>
> I have written it for others who are not very technical. I want them to
> be able to see the script working and what it is doing. But I also need
> a log file of the same information so I can have it mailed to me and
> keep a copy on the server.
>
> I cant seem to get this to work.
>
What have you tried? I would alter the script to have multiple print
statements. One to STDERR or STDOUT, the other to my file. Something like:
open(LOGGER,'myfile.log');
...
print STDERR "$message\n";
print LOGGER "$message\n";
...
If you want, you could "encapsulate" this by not using print directly, but
in your own function, say "myprint()".
sub myprint {
my $fn = shift;
print $fn "@_";
print LOGGER "@_";
}
my $STDOUT=\STDOUT;
my $STDERR=\STDERR;
...
my $message="This is a test.\n";
...
&myprint($STDOUT,$message);
...
&myprint($STDERR,$message);
Hope this is useful in some way.
--
Maranatha!
John McKown
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
