Re: Directly assigning Filehandle

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?"

Comment on Re: Directly assigning Filehandle Download Code

Replies are listed 'Best First'.
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
oops, you're right. I tested it before posting, but I must have had a mistake in my test.	[reply]