Hey, monks!
I have a number of repeated regular expressions used throughout some code, and it would be good if they were consolidated. Below is some code which illustrates what I am trying to do:
#!/bin/env perl
use strict;
use warnings;
use Data::Dumper;
#use constant DOT => qr/^\.$/;
#use constant DOT_DOT => qr/^\.\.$/;
opendir(my $dh, '.');
my @lst = grep { !/^\.$/ && !/^\.\.$/ } readdir($dh);
#my @lst = grep { !DOT && !DOT_DOT } readdir($dh);
print Data::Dumper->Dump([\@lst], [qw/lst/]);
As you can surmise from what is commented out, I am trying to move the regular expressions to constants, but I haven't mastered the syntax.
How can I use constants within regular expressions? Your insight would be greatly appreciated!
Thanks!