perl imap将邮件移动到垃圾箱（Mail :: IMAPClient）

Question

我需要将所有邮件从未看到的邮件移到垃圾箱（然后从收件箱中删除）。

my $inbox = $imap->select("Inbox"); 
my @mails = ($imap->unseen); 

foreach my $msgid (@mails) { 
    $imap->set_flag("Deleted", @mails) 
     or die "Could not set flag: [email protected]\n"; 
} 

此代码完全删除邮件。 （没有抹去太）

我试图使用“移动”和“复制”：

my $Trash = "Trash"; 
my $newUid = $imap->move($Trash, $msgid) 
    or die "Could not move: [email protected]\n"; 
my $uidList = $imap->copy($Trash, @mails) 
    or die "Could not copy: [email protected]\n"; 

但“移动”创建新的标记（文件夹），“拷贝”不工作“无法复制：6 NO [TRYCREATE]没有文件夹垃圾桶（失败）“ 我试图使用名称：/垃圾桶，[imap]垃圾桶等，类似的结果。 这必须适用于不同的邮件服务！

我使用Mail::IMAPClient

Answer 1

尝试下面的代码IMAP服务器支撑RFC6154like Gmail。它应该检测垃圾邮件文件夹名称。

use Mail::IMAPClient; 
...... 
my $Trash; 
{ 
    my @Trash; 
    my @fhashes = $imap->folders_hash or die "Could not get list of folder hashes.\n"; 
    foreach my $fhash (@fhashes) { 
    next unless map { /^\\Trash$/ ? ($_) :() } @{$fhash->{attrs}}; 
    push (@Trash, $fhash->{name}); 
    } 
    $Trash = pop(@Trash) if @Trash == 1; 
} 
if(defined($Trash)) { 
    ... 
}