Re: moving files in a dir (Maildir) depending on Date

As has been said, the supersearch should have answered your question. But, I think you will want to look at File::Copy and Email::Date, they helped me when I did this.

l8rZ,
--
andrew

Comment on Re: moving files in a dir (Maildir) depending on Date

Replies are listed 'Best First'.
Re^2: moving files in a dir (Maildir) depending on Date by matze77 (Friar) on Nov 27, 2008 at 09:30 UTC
First. Thanks @all for your replies and tips, seems i have to dig in a little deeper, Email::Date pushes me into the right direction. I come back after i learned more. Thank you!. Update: `#!/usr/bin/perl -w use strict; foreach(<*>) { if (-M $_ > 660) { use File::Copy;copy("$_","/tmp/testd +ir/") or die "Copy failed: $!";} }` [download] I changed the requirement to older than 660 days thats close enough for now. Calculating with Dates is for another day. Any comments are welcome. /Update	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: moving files in a dir (Maildir) depending on Date
by matze77 (Friar) on Nov 27, 2008 at 09:30 UTC

#!/usr/bin/perl -w
use strict;
foreach(<*>) { if (-M $_ > 660) { use File::Copy;copy("$_","/tmp/testd
+ir/") or die "Copy failed: $!";} }
[download]

[reply]
[d/l]