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


Just another Perl shrine
	PerlMonks

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

by kyle (Abbot)

on May 25, 2007 at 14:49 UTC ( [id://617504]=note: print w/replies, xml )

Need Help??

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

sub do_dni {
    my ( $filename ) = @_;
    print "dni: $filename\n";
}
sub do_sni {
    my ( $filename ) = @_;
    print "sni: $filename\n";
}
my %dispatch = ( 'DNI' => \&do_dni,
                 'SNI' => \&do_sni,
                 # etc.
               );
foreach my $fn ( @filenames ) {
    while ( my ( $pattern, $sub_ref ) = each %dispatch ) {
        $sub_ref->($fn) if ( $fn =~ /$pattern/ );
    }
}
[download]

If you fear the regexes getting compiled over and over, you could also do something like this:

my @dispatch = ( { pattern => qr/DNI/,
                   coderef => \&do_dni, },
                 { pattern => qr/SNI/,
                   coderef => \&do_sni, },
                );
foreach my $fn ( @filenames ) {
    foreach my $item ( @dispatch ) {
        $item->{coderef}->($fn)
            if ( $fn =~ $item->{pattern} );
    }
}
[download]

Comment on Re: Testing for the presence of a hash key in a filename Select or Download Code

Replies are listed 'Best First'.

Re^2: Testing for the presence of a hash key in a filename
by citromatik (Curate) on May 25, 2007 at 15:08 UTC

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

[reply]
[d/l]

In Section Seekers of Perl Wisdom