if ( opendir( DIR, '.' ) ) {
my @htmlFiles = grep { /\.html?$/i } readdir(DIR);
closedir( DIR );
print "Deleting the following file(s):\n ";
print join "\n ", @htmlFiles;
unlink @htmlFiles;
}
Works in current directory.
You [c|sh]ould add an error check to the unlink.
Regards,
Rick Evans
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
