in reply to Delete files matching pattern

my $pattern = qr{se\d{4}ab}i;

opendir(DIRHANDLE, ".") or die "Cannot opendir: $!";

my @files = grep { -e and /$pattern/ } readdir DIRHANDLE;

unlink for @files;

[download]


Replies are listed 'Best First'.
Re^2: Delete files matching pattern
by deibyz (Hermit) on May 09, 2005 at 16:24 UTC
    No need for temp array:

    my $pattern = qr{se\d{4}ab}i;
opendir(DIRHANDLE, ".") or die "Cannot opendir: $!";
unlink grep { -e and /$pattern/ } readdir DIRHANDLE;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom