No such module, that I can find. I think you meant to say IO::Tee.

--
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/
[download]

You might want to look into man tee if you're on a *nix system. Description: Copy standard input to each FILE, and also to standard output.

Don't know if it works w/ STDERR though...

tee is useful when you cannot change the script that was given to you and you want to save and view. But if you are the author of the script why can't a simple print statement work?

for example -

if ($error) {
   print STDERR ("Error: $errmsg\n");
   print ERRLOG ("Error: $errmsg\n");
} else {
   print ("Output: $outstr\n");
   print CLEANLOG ("Output: $outstr\n");
}
[download]

Of course if you if you are interpolating the string inside print I would probably first do that in a variable and use it inside print to avoid interpolating twice

Am i missing somethign here?

It works, but now you've got two copies of every message. At the very least wrap that up in a pair of subs.

sub my_print { print @_; print CLEANLOG @_ }
sub err_print { print STDERR @_; print ERRLOG @_ }
[download]

--
We're looking for people in ATL

Thanks for the tip on the sub.

regarding your other comment: It works, but now you've got two copies of every message

Could you please explain what do you mean by copy? it writes the same msg twice but it does it in two different places...the output on the screen will not have dups and the output in the log will not have dupliactes...

if you say it is inefficient to do it this then i would agree but i am not sure whether i understand the term "copy" there.

thanks

SK

select STDERR;
$|=1

unless (open STDERR, '|-') {
  eval {
    open ERRLOG, ">/tmp/errlog" or die;
    while(<>) {
      print ERRLOG $_;
      print STDERR $_;
    }
  };
  exit(0);
}

# repeat for STDOUT
[download]

Sorry guys, I should have mentioned I am doing this on a Win32 system at the moment. The Unix stuff will come in handy though.