Perl:阅读电子邮件并使用消息内容作为excel更新的标准输入
我正在寻找一些关于启动Perl脚本的帮助。我相对缺乏Perl方面的经验,因此非常感谢您的帮助:) 基本上,我想开始一个项目,写一个脚本,帮助跟上我工作的时间。基本上,我希望脚本通过电子邮件(使用cron自动发送)提醒我每天发送小时数,然后我发送一封电子邮件,邮件内容如下 "03/02/14 7.30 18.30" 然后,脚本将读取数据并更新excel电子表格,并记录小时数Perl:阅读电子邮件并使用消息内容作为excel更新的标准输入,excel,perl,email,Excel,Perl,Email,我正在寻找一些关于启动Perl脚本的帮助。我相对缺乏Perl方面的经验,因此非常感谢您的帮助:) 基本上,我想开始一个项目,写一个脚本,帮助跟上我工作的时间。基本上,我希望脚本通过电子邮件(使用cron自动发送)提醒我每天发送小时数,然后我发送一封电子邮件,邮件内容如下 "03/02/14 7.30 18.30" 然后,脚本将读取数据并更新excel电子表格,并记录小时数 除了让脚本读一封电子邮件,我什么都知道。我一直在研究MIME::*邮件::*但我不完全确定哪个软件包是最好的,
除了让脚本读一封电子邮件,我什么都知道。我一直在研究MIME::*邮件::*但我不完全确定哪个软件包是最好的,以及如何真正做到这一点。正如@mpapec建议的那样,您可以使用IMAP或linux设备上的本地邮箱阅读电子邮件 在windows中,您可以使用OLE并在outlook中阅读电子邮件: 您可以通过以下方式阅读exchange上的电子邮件: 如果我是你,我会使用IMAP访问电子邮件。它是独立于平台的,使用起来不太困难(我过去使用过它,它是可靠的)
通过或感谢此用户的邮件访问1126070:)
my $imap = Net::IMAP::Client->new(
server => 'mail.you.com',
user => 'USERID',
pass => 'PASSWORD');
# select folder
$imap->select('INBOX');
#newest first
my $messages = $imap->search({
FROM => 'you',
SUBJECT => 'your email subjet',
}, [ '^DATE' ]);
# fetch full message (newest)
my $data = $imap->get_rfc822_body($messages->[0]);
#process
store_data_in_excel($data);
#move to archive
$imap->copy([$messages->[0]], 'Archive');
$imap->add_flags(\@msg_ids, '\\Deleted');
$imap->expunge;