I can do with IO::Tee and with select. But this application is a light weight application which should not use any modules other than perl builtin functions and modules. Is there any other way to achieve this without using IO::Tee ?

IO::Tee is a Pure Perl module with no non-core dependancies. Installing it is a simple as placing Tee.pm in a subdir named IO. What's the problem?

Yes. Copy/paste http://search.cpan.org/src/KENSHAN/IO-Tee-0.64/Tee.pm into your program.

Not a perl answer, but maybe it helps?

If you run the program on some flavour of UNIX, there should be a tee command which should do exactly what you requested:

 open(STDOUT,"| tee $log_file");
 print "Testing";
[download]

But you need not call it inside the script itself. You can also append the tee to the script invocation.

OTOH: When it's your script, you can also change all your print commands to "logger" commands and do the proper output there. That way you don't depend on any other module and need not call an external program.

#each
print "this is my ",$test;
# would become
logger("this is my ", $test);
[download]

You will also need to have a logger function and a LOGFILE. Something like this

open LOGFILE, '>>', $log_file;

sub logger {
    print LOGFILE @_ if defined $log_file;
    print @_
}
[download]

---

s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

You could try my tie-based solution: IO::MultiHandle - Operate on multiple file handles as one

seems that you are trying to write a same content to multiple file. I am still thinking about such requirement in application. because in my software experience I have never come across such a requirement. so, I am really very much interested to get to know about the requirement. could you please explain more on this ? If it is really a useful feature, I can try to implement such requirement in my applications if needed in future.

thanks a lot.

The application will execute some commands in the remote boxes and I need a per server logging as well as it should be displayed in the terminal too. So I need to redirect the command output to STDOUT as well as to a file.

Doesn't IPC::Run support filehandle duping? Sounds like you're trying to put one over or somebody.

Update: I think the voting on this node indicates that I did not communicate very well. I don't mean that any poster on this thread, the OP nor anyone else, is or was trying to trick anyone. I simply had a little internal LOL @ the fact that "dupe" means "to deceive or mislead" (or, alternately, someone who is easy to "dupe"). I am sorry that I came across as critical.

Terrence

_________________________________________________________________________________

I like computer programming because it's like Legos for the mind.