Re: create search string from array elements


Welcome to the Monastery
	PerlMonks

Re: create search string from array elements

by friedo (Prior)

on Jul 12, 2005 at 13:19 UTC ( #474270=note: print w/replies, xml )

Need Help??

in reply to create search string from array elements

If you want to be clever you could make an alternating pattern from the list of dates:

my $pat = join '|', @dates;
my @files = grep /$pat/, @logfiles;
[download]

But I have no idea if that would be faster or slower than just doing a nested loop. A nested loop at least gives you the option of skipping the remainder when you've found a match.

my @files;
foreach my $file( @logfiles ) { 
    foreach my $date( @dates ) { 
        if ( $file =~ /$date/ ) { 
            push @files, $file; 
            last;
        }
    }
}
[download]