Directly assigning Filehandle

songahji has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Directly assigning Filehandle by Joost (Canon) on May 04, 2005 at 15:57 UTC
use lexical filehandles: `sub read_file { my $name = shift; open my $fh,"<",$name or die "can't open $name; $!"; while (<$fh>) { chomp; read_file($_) if -f $_; } close $fh; }` [download] untested for obvious reasons :-) "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l]
Re^2: Directly assigning Filehandle by ikegami (Patriarch) on May 04, 2005 at 16:04 UTC
Unfortunately, the three argument open is not backwards compatible with 5.6.x. OTOH, `open my $fh,"< $name" or die "can't open $name; $!";` would work.	[reply] [d/l]
Re^3: Directly assigning Filehandle by chromatic (Archbishop) on May 04, 2005 at 16:18 UTC
5.6.x introduced both lexical filehandles and three-argument open.	[reply]
Re^4: Directly assigning Filehandle by ikegami (Patriarch) on May 04, 2005 at 16:23 UTC
Re: Directly assigning Filehandle by ikegami (Patriarch) on May 04, 2005 at 16:02 UTC
Or if you prefer OO notation, `my $fh = IO::File->new($filename, 'r')`	[reply] [d/l]
Re: Directly assigning Filehandle by JediWizard (Deacon) on May 04, 2005 at 15:59 UTC
you can use scalar variable to hold filehandles. See below: `open(my $filehandle, '<', '/path/to/file') \|\| die "$!\n";` [download] open They say that time changes things, but you actually have to change them yourself. —Andy Warhol	[reply] [d/l]
Re: Directly assigning Filehandle by sh1tn (Priest) on May 04, 2005 at 16:02 UTC
perldoc -q filehandle `open my $fh, $file_name; open local $fh, $file_name; print $fh "Hello World!\n"; process_file( $fh );` [download]	[reply] [d/l]