如何使用 Perl 脚本将 Gmail 中的邮件标记为“已读”并使用 Mail::Webmail::Gmail 删除它们？

Question

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

我已经尝试了http://search.cpan.org/dist/Mail-Webmail-Gmail/lib/Mail/Webmail/Gmail.pm中给出的以下代码

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;

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

有没有其他方法可以在 Perl 中完成这些任务。

提前致谢。 子哈希

Answer 1

That module 最后一次更新是在 2006 年，文档说：

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

您可以尝试联系作者，但距离上次发布已有十年，他似乎失去了兴趣。

但是 GMail 有一个 IMAP 接口。所以你应该可以用Mail::IMAPClient这样的模块做你想做的事。