如何停止Perl的Mail :: Box :: Manager從刪除目錄？

Question

我使用Perl模塊Mail::Box::Manager從Maildir中讀取消息並將它們移動到另一個目錄中。一旦腳本完成處理Maildir中的郵件消息，它似乎也會刪除cur /和new/Maildir目錄，並且需要重新創建Maildir文件/目錄。

我不希望腳本刪除文件夾並不得不重新創建Maildir結構。

我喜歡簡單的東西：

#!/usr/bin/perl 
use Mail::Box::Manager; 

my $cnt = 0; 
my $mgr = Mail::Box::Manager->new; 
my $folder = $mgr->open(folder => '/home/vmail/mailfolder/', 
        access => 'rw', 
        type => 'maildir', 
        log => 'DEBUG', 
        ); 

foreach my $msg ($folder->messages) { 
    # ... doing some processing of $msg here, then, move the mail for storage 

    my $filename = $msg->filename || "NA"; 
    $filename =~ m#(.*)/new/(.*)$#; 

    $mgr->moveMessage("/dir/$filename", 
         $folder->message($cnt), 
         create => 1); 
    $cnt++; 
} 

$folder->close(); 

任何建議大受接待。謝謝。

Answer 1

添加

remove_when_empty => 0, 

到$mgr->open通話。