如何在Gmail中将邮件标记为'；阅读'；并使用Mail:：Webmail:：Gmail，使用Perl脚本删除它们？

使用Perl，我需要阅读Gmail中的邮件，将它们标记为“已读”，然后删除它们

我已尝试了中给出的以下代码

无法获取标签、消息。 这里少了什么

有没有其他方法可以用Perl实现这些任务

提前谢谢。 Subhash最近一次更新是在2006年，文件上说：

由于Gmail目前正在进行Beta测试，所以当他们对其界面进行更新时，预计该模块将中断。我将尝试使此模块与他们所做的更改保持一致，但是，如果在更新到此模块的最新版本后，您所需的功能仍然不起作用，请与我联系以解决此问题

你可以试着联系作者，但自从上次发布十年后，他似乎失去了兴趣

---

但是GMail有一个IMAP接口。因此，您应该可以对这样的模块执行任何操作。

两小时前，我收到一条关于该模块已使用10年的评论，但我想我去吃午饭时忘了按enter键……：P

use Mail::Webmail::Gmail;
use Data::Dumper;

my $gmail = Mail::Webmail::Gmail->new(
  username => 'user@gmail.com', password => 'password',
);
print Dumper $gmail;

my @labels = $gmail->get_labels();
print Dumper @labels;

my $messages = $gmail->get_messages( label => $labels[0] );
print Dumper $messages;