Close a filehandle from sub

[MoshiachNow]

HI,

I open a filehandle and use it in one sub.
Then in another sub I want to be able to close that file accessing it's handle.
But if I try to acces that handle,I get error "Bad file descriptor".
Looks like handles are not passed between subs.
Appreciate any advise.
Thanks

Long live king Moshiach !

http://www.7for70.com/

 

[rharsh]

You'll probably want to use references - something like this might work for you:

my $fh = openOutputFile("test_output.txt");

print $fh "testing 1 2 3\n";

closeFilehandle($fh);

sub openOutputFile {
	my $file = shift;
	open (INPUT, "> $file") or die "cannot open $file\n$!";
	return *INPUT;
}

sub closeFilehandle {
	my $filehandle = shift;
	close $filehandle or die "Cannot close filehandle\n$!";
}

 

[KevinADC]

or use the IO::File module.

- Kevin, perl coder unexceptional!

 

[MoshiachNow]

Thanks,

would FileHandle module also do the job ?

Long live king Moshiach !

http://www.7for70.com/

 

[MikeLacey]

Any method of making file handles globally available will work ok.

Mike

The options are: fast, cheap and right - pick any two.. &

Want great answers to your Tek-Tips questions? Have a look at faq219-2884

 

[KevinADC]

yes, but really it's just a "frontend" (the module authors wording) for IO:File, IO::Handle and IO::Seekable.

- Kevin, perl coder unexceptional!

 

[MoshiachNow]

Thanks

Long live king Moshiach !

http://www.7for70.com/