Wie Baue ich Perl reguläre Ausdrücke dynamisch?

Können sagen, dass Sie verwenden Config::General für Sie die config-Datei und enthält diese Zeilen:

<MyApp>
    extensions    avi flv mp3 mp4 wmv
    unwanted      frames svn
</MyApp>

Könnte man dann verwenden Sie es wie so (siehe Config::General, für mehr):

my $conf = Config::General->new('/path/to/myapp.conf')->getall();
my $extension_string = $conf{'MyApp'}{'extensions'};

my @extensions = split m{ }, $extension_string;

# Some sanity checks maybe...

my $regex_builder = join '|', @extensions;

$regex_builder = '.(' . $regex_builder . ')$';

my $regex = qr/$regex_builder/;

if($file =~ m{$regex}) {
    # Do something.
}


my $uw_regex_builder = '.(' . join ('|', split (m{ }, $conf{'MyApp'}{'unwanted'})) . ')$';
my $unwanted_regex = qr/$uw_regex_builder/;

if(File::Next::dir !~ m{$unwanted_regex}) {
    # Do something. (Note that this does not enforce /^.svn$/. You
    # will need some kind of agreed syntax in your conf-file for that.
}

(Das ist komplett ungetestet.)

Seine einigermaßen geradlinig mit File::Find::Rule, nur ein Fall, der die Liste erstellen, bevor die hand.

use strict;
use warnings;
use aliased 'File::Find::Rule';


# name can do both styles. 
my @ignoredDirs = (qr/^.svn/,  '*.frames' );
my @wantExt = qw( *.avi *.flv *.mp3 );

my $finder = Rule->or( 
    Rule->new->directory->name(@ignoredDirs)->prune->discard, 
    Rule->new->file->name(@wantExt)
);

$finder->start('./');

while( my $file = $finder->match() ){
    # Matching file.
}

Dann seine einfach ein Fall von dem füllen der arrays. ( Hinweis: der obige code auch ungetestet, aber wahrscheinlich arbeiten ). Ich würde in der Regel verwenden YAML für diese, es macht das Leben leichter.

use strict;
use warnings;
use aliased 'File::Find::Rule';
use YAML::XS;

my $config = YAML::XS::Load(<<'EOF');
---
ignoredir:
- !!perl/regexp (?-xism:^.svn)
- '*.frames'
want:
- '*.avi'
- '*.flv'
- '*.mp3'
EOF

my $finder = Rule->or( 
    Rule->new->directory->name(@{ $config->{ignoredir} })->prune->discard, 
    Rule->new->file->name(@{ $config->{want} })
);

$finder->start('./');

while( my $file = $finder->match() ){
    # Matching file.
}

Hinweis Mit dem handlichen Modul 'alias.pm " die Importe "File::Find::Rule" für mich als "Regel".

• File::Find::Rule - Alternative Oberfläche zu File::Find
• YAML::XS - Perl-YAML-Serialisierung ist die Verwendung von XS und libyaml
• alias - Verwenden Sie kürzere Versionen von Klassen-Namen.

Obwohl File::Find::Rule bereits Möglichkeiten zum Umgang mit diesem, in ähnlichen Fällen, die Sie nicht wirklich wollen, eine regex. Die regex nicht kaufen Sie viel hier, weil du suchst eine Feste Folge von Zeichen, die an das Ende jedes Dateinamens. Sie wollen wissen, ob das Feste Reihenfolge wird in einer Liste von Sequenzen, die Sie interessieren. Store alle Erweiterungen in einem hash und suchen Sie in diesem hash:

my( $extension ) = $filename =~ m/\.([^.]+)$/;
if( exists $hash{$extension} ) { ... }

Brauchen Sie nicht zu bauen, bis Sie einen regulären Ausdruck, und Sie brauchen nicht zu gehen durch mehrere mögliche regex-Wechsel zu prüfen, jede Erweiterung, die Sie haben zu prüfen.