File Handle Problem

[Louis]

Hope somebody can tell me why this happens to filehandles...

I am playing with perl packages, and I had all functions in one file.
Now I want to split them into different files using package.

BEFORE: I have a function that opens a filehandle (FH1) and then calls
another function to print messages. This works good.

NOW: I put the calling function in another file. When it calls the print
function it uses &main:rtmess();, perl prints out errors: printf() Non
unopened filehandle FH1 at.....

ANd if I copy the prtmess() function in the same file as the calling
function, it works again.


My question is: I read somewhere that once you open a filehandle, perl
keeps it open until you close it. So why the different file scenario
doesn't seem to work?

Appreciate the help. Thanks.

 

[Louis]

Hope somebody can tell me why this happens to filehandles...

I am playing with perl packages, and I had all functions in one file.
Now I want to split them into different files using package.

BEFORE: I have a function that opens a filehandle (FH1) and then calls
another function to print messages. This works good.

NOW: I put the calling function in another file. When it calls the print
function it uses &main:rtmess();, perl prints out errors: printf() Non
unopened filehandle FH1 at.....

ANd if I copy the prtmess() function in the same file as the calling
function, it works again.


My question is: I read somewhere that once you open a filehandle, perl
keeps it open until you close it. So why the different file scenario
doesn't seem to work?

Appreciate the help. Thanks.

Thanks for your suggestions...with those I finally realized that the
error iss I was so concentrating on keeping the package names properly
on the functions but not on the filehandle FH1. Once I added the package
name in front of FH1 (packagename::FH1), the script works.

But now I have to figure out how to use the same prtmess function for
all the reports if some of them are in different packages.

I thought that yuou cannot pass the filehandle directly as a parameter
to a function. Maybe I can pass a reference of FH1 to the function.

Anyway, thanks very much for your input.

 

[John W. Krahn]

Thanks for your suggestions...with those I finally realized that the
error iss I was so concentrating on keeping the package names properly
on the functions but not on the filehandle FH1. Once I added the package
name in front of FH1 (packagename::FH1), the script works.

But now I have to figure out how to use the same prtmess function for
all the reports if some of them are in different packages.

I thought that yuou cannot pass the filehandle directly as a parameter
to a function. Maybe I can pass a reference of FH1 to the function.

Sure you can, see the FAQ:

perldoc -q "How do I pass filehandles between subroutines"



John