On Dec 24, 2003, at 2:03 PM, R. Joseph Newton wrote: [..]
use strict; use warnings;
my @remote_cmd_list = ('print "Hello, world!\n";');
# my $foo_bar = Net::Foo::Bar->new(@net_connect_stuff); my $filename = 'debug_runs/debug_' . time . '.log';
{ open DEBUG_LOG, ">$filename" or die "Couldn't output to debug log: $!"; local *STDOUT = *DEBUG_LOG;
wouldn't you also want
local *STDERR = *DEBUG_LOG;
so as to 'trap' the possibility that it was printing to stderr as well?
foreach my $cmd (@remote_cmd_list)
{
do_remote($cmd);
}
}
Which should allow normal IO to continue as soon as output from the commands has been captured.
I personally would want to have a bit more coherency in my Net::Foo::Bar so that if we need to do a 'tee_output()' that it would have a mechanism for doing the send to log_logfile and straight out the door to the command line.
Either that or I would probably want it to be returning to the code the responses that it got back from the far server ....
ciao drieux
---
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
