Re^2: Testing for the presence of a hash key in a filename


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^2: Testing for the presence of a hash key in a filename

by citromatik (Curate)

on May 25, 2007 at 15:08 UTC ( [id://617512]=note: print w/replies, xml )

Need Help??

in reply to Re: Testing for the presence of a hash key in a filename
in thread Testing for the presence of a hash key in a filename

use Tie::RegexpHash;

## &do_dni and &do_sni ... as before

my %dispatch;
tie %dispatch, 'Tie::RegexpHash';

%dispatch = ( qr/DNI/ => \&do_dni,
              qr/SNI/ => \&do_sni,
              # etc.
);

foreach my $fn ( @filenames ) {
   $dispatch{$fn}->{$fn}
}
[download]

citromatik