Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
opendir(DIR, "../test") or die "Can't open ../test: $!";
my @f = readdir DIR;
@f = map { unlink $_; $_ }
     grep { /\.txt$/i } @f;

Select or download this

my @f = <*.txt>;
@f = map { unlink $_; $_ }
     grep { /\.txt$/i } @f;