Regex command to remove deleted emails

[John Schmerold]

I'm trying to use the following to remove deleted emails (deleted emails
have file names that end in ",ST"):
rm -f $(find /home/vmail Maildir | grep ,ST)

This works well for the most part, however some files don't get deleted,
I suspect because of their length or characters in the pathname. For
example, following was not deleted:
/home/vmail/jam/Maildir/.Personal items.Saved
mail/cur/1060014026.M14682P23099V0000000000000904I00105790_ 15.mail.lp.com,
S=33883:2,ST

Anyone know of a way to include a delimiter or other function to force
the removal of files such as one above?

[Tim Johnson]

I haven't had a chance to test this, but how about:

####################################

use strict;
use warnings;
use File::Find;
find(sub{unlink if /,ST$/},"/my/directory/");

####################################

-----Original Message-----
From: news on behalf of John Schmerold
Sent: Wed 1/28/2004 9:44 PM
To: [email]beginners@perl.org[/email]
Cc:
Subject: Regex command to remove deleted emails



I'm trying to use the following to remove deleted emails (deleted emails
have file names that end in ",ST"):


<snip>