Send file handle as argument in perl

perl filehandle
Daanish picture Daanish · Dec 4, 2012 · Viewed 11.9k times · Source

Is it possible to send a file handle as an argument to a subroutine in PERL?

If yes, can you help with a sample code snippet showing how to receive it and use it in the subroutine?

Answer

ikegami picture ikegami · Dec 4, 2012

You're using lexical variables (open(my $fh, ...)) as you should, right? If so, you don't have to do anything special.

sub f { my ($fh) = @_; print $fh "Hello, World!\n"; }
f($fh);

If you're using a glob (open(FH, ...)), just pass a reference to the glob.

f(\*STDOUT);

Though many places will also accept the glob itself.

f(*STDOUT);

Related questions

Perl - while (<>) file handling

A simple program with while( <> ) handles files given as arguments (./program 1.file 2.file 3.file) and standard input of Unix systems. I think it concatenates them together in one file and work is line by line. The problem is, …

Read More
Read file into variable in Perl

Possible Duplicate: What is the best way to slurp a file into a string in Perl? Is this code a good way to read the contents of a file into a variable in Perl? It works, but I'm curious if …

Read More
How can I check if a filehandle is open in Perl?

Is there a way to check if a file is already open in Perl? I want to have a read file access, so don't require flock. open(FH, "<$fileName") or die "$!\n" if (<FILE_IS_NOT_ALREADY_OPEN&…

Read More