or what about unless...
opendir(DIR, $dir) || die ..
while(<DIR>) {
unless ~= $pattern {
unlink or remove here
}} -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
or what about unless...
opendir(DIR, $dir) || die ..
while(<DIR>) {
unless ~= $pattern {
unlink or remove here
}} -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]