The problem is that you are using the module in the wrong way for your intended purpose. Using the Filter method is intended to allow you to filter the output on its way to the given file.

That is to say, it doesn't redirect the output, just gives you the opportunity to modify it on its way through, as is (slightly confusingly) described in the pod:

=item * Capturing Output

Normally, output is passed through your filtering function, then printed on the output filehandle that you're filtering.

Suppose that, instead ofwriting the filtered output to the filehandle, you just want to capture that filtered output. In other words, you want to store the output and not have it written to the filehandle.

A second problem, and the reason for the deep recursion, is that the syntax:

 print <FH1> "$_\n"; isn't doing what you intend. <FH1> means "read from FH1".

So the line is attempting to read from FH1, and then print the results to STDOUT, but of course you are filtering STDOUT, so that line causes your filter function to be called, which reads from FH1 and prints the results to STDOUT, which...:)

To redirect the output from one filehandle to another, you should be using the tie interface...

#! perl -slw
use strict;
use Filter::Handle;

open FH1, '>', 'my.log' or die $!;

tie *STDOUT, 'Filter::Handle', \*FH1, sub{ $_[0] };

print 'Hello world!', $_ for 1 .. 10;
[download]

You can modify the anonymous sub on the tie to also filter the output, or omit the parameter to get the default filtering effect of each line being prefixed by the filename and linenumber.

If you are not intending to use the filtering facilities of Filter::Handle, and are only using it to re-direct the output from STDOUT to FH1, then adding

BEGIN{
    open FH1, '>', 'my.log' or die $!;
    *STDOUT = *FH1;
}
[download]

Hi
     Thank you very much for replying back.
  I made the changess thus:
 tie *FH1, 'Filter::Handle', \*FH2, sub { $_[0] };
.
.
 print FH1 "Hello World\n";
But I donot see the Hello World in FH2. That means
my Filter is not working correctly. It would
be of great help if you could let me know.
Thanks
[download]

The following works for me?

Update: Note: I had to change the anonymous sub slightly to use @_ instead of $_[0]. Only the first argument to the print statement was being output.

#! perl -slw
use strict;
use Filter::Handle;

open FH1, '>', 'my.log' or die $!;
open FH2, '>', 'myother.log' or die $!;

tie *FH1, 'Filter::Handle', \*FH2, sub{ @_ }; ## << NOTE THE CHANGE!!!

print FH1 'Hello world!', $_ for 1 .. 10;
[download]

The test

Read more... (839 Bytes)

That said, I'm not quite sure why you would do this? If all the print statements you wish to re-direct already print to an filehandle, why not just open the desired output file as that handle?

---

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller

I think the indirect object notation is tripping you up. Plus, you're reading a line from FH1, not printing to it. Your problem might be solved with:

but I'd be more comfortable with: