in reply to create search string from array elements
my $pattern = join '|', map quotemeta, @dates; my $re = qr/^logfile\..*\.($pattern)$/; /$re/ && print "matched: $_\n" for @logfiles;
Dave.
|
---|
In Section
Seekers of Perl Wisdom
in reply to create search string from array elements
my $pattern = join '|', map quotemeta, @dates; my $re = qr/^logfile\..*\.($pattern)$/; /$re/ && print "matched: $_\n" for @logfiles;
Dave.
|
---|