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

Question

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

3

使用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中是否有其他方法可以完成这些任务。

提前感谢。 Subhash

- Subhash

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Dave Cross · Accepted Answer

这个模块最后一次更新是在2006年，文档中提到：

由于Gmail目前处于Beta测试阶段，随着他们更新界面，预计此模块会出现问题。我会尝试让此模块与他们所做的更改保持一致，但如果在更新到此模块的最新版本后，您需要的功能仍无法正常工作，请与我联系。

您可以尝试联系作者，但自上次发布以来已经过去了十年，看起来他已失去了兴趣。

但是GMail有一个IMAP接口。因此，您应该能够使用像Mail::IMAPClient这样的模块实现您想要的功能。