Passing File Handles

[manimarank]

Is it possible to pass the file handle from one module to the other module?

my sample code is
Test.pl
-----------
&create_top(*LOG_FILE);

Create_Top.pm
-----------------------
package Create_Top;
sub create_top {
local *LOG_FILE = $_[0];
print LOG_FILE " Test \n";
}
1;

but this code is not working, can anyone pls suggest me the best solutions????

[miller]

The easily method to accomplish this is simply to use indirect filehandles

perlopentut Indirect Filehandles

Alternatively, you can create your own indirect file handle by passing a reference to the typeglob.

# Test.pl
create_top(\*LOG_FILE);
 

#Create_Top.pm
package Create_Top;
 
sub create_top {
    my ($fh) = @_;
    print $fh " Test \n";
}
1;
 

You cannot however pass typeglobs directly.

- Miller