Re: localizing handles with anonymous subroutines

in reply to localizing handles with anonymous subroutines

Is there an advantage of this method over do?

my @files = do {
    local *DH;
    opendir( DH, $dir ) or die 'Cannot open ' . $dir;
    grep { -f $_ } readdir(DH);
};
[download]

--
John.

Comment on Re: localizing handles with anonymous subroutines Download Code

Replies are listed 'Best First'.
Re^2: localizing handles with anonymous subroutines by particle (Vicar) on Jun 10, 2002 at 16:13 UTC
yes, there's a huge advantage. `do` is not a subroutine. it cannot take parameters. just try to `do` this! `my %dispatch = ( sub_get_files => sub{ # takes one arg local DH; opendir( DH, $_[0] ) or die 'Cannot open ' . $_[0]; return grep { -f $_ } readdir(DH) }, ); my @files = $dispatch{sub_get_files}->( $dir );` [download] do executes immediately, and would spit the results into the hash. icky.<p ~Particle accelerates*	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: localizing handles with anonymous subroutines
by particle (Vicar) on Jun 10, 2002 at 16:13 UTC

do

my %dispatch = (
  sub_get_files => sub{ # takes one arg
    local *DH;
    opendir( DH, $_[0] ) or die 'Cannot open ' . $_[0];
    return grep { -f $_ } readdir(DH)
  },
);

my @files = $dispatch{sub_get_files}->( $dir );
[download]

~Particle *accelerates*

[reply]
[d/l]
[select]

In Section Cool Uses for Perl