5

我是实习生，对此很陌生...

我的老板每周一都会收到一封带有两个附件的电子邮件，他必须将其转换成 wiki 代码并将其放在我们的内部网站上。由于要传输的信息量很大，该过程每周一大约需要 20 分钟。我被要求简化这个过程。

我有代码可以解析文件并将其分解为组件，并且我有代码可以从他的收件箱中获取所有附件。

我面临的问题是我的脚本从最旧的电子邮件开始。这不是一个大问题，但它会导致脚本运行的时间比需要的长得多。

#!/usr/bin/perl
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Outlook';
use Win32::OLE::Variant;

my $OL = Win32::OLE->GetActiveObject('Outlook.Application') || Win32::OLE->new('Outlook.Application', 'Quit');
my $NameSpace = $OL->GetNameSpace("MAPI");
my $Folder = $NameSpace->GetDefaultFolder(olFolderInbox);
my $dir = cwd . "\\";
$dir =~ s/\//\\/g;
my $atch1, $file1, $atch2, $file2;

print ref($Folder->{Items}) . "\n";

foreach my $msg (in $Folder->{Items}){
    #print $msg->{CreationTime} . "\n";
    foreach my $atch (in $msg->{Attachments}){
        if($atch->{FileName} =~ m/.xls$/i){
            if($atch->{FileName} =~ /Name of attachment1/i){
                $atch1 = $atch;
                $file1 = $dir . "file1.xls";
            }
            if($atch->{FileName} =~ /Name of attachment2/i){
                $atch2 = $atch;
                $file2 = $dir . "file2.xls";
            }
       }
   }
}

if($atch1 && $atch2){
    print $file1 . "\n" . $file2 . "\n";
    $atch1->SaveAsFile($file1);
    $atch2->SaveAsFile($file2);
}

现在设置的方式，因为它从最旧到最新，旨在查找文件，然后如果找到较新的文件则替换它们（尽管我删除了该功能）。实际上，我可以找到最新的并停下来。

我不知道如何反转 $Folder->{Items}。我什至不明白它是什么。当我执行 ref($Folder->{Items} 时，它说它是一个 Win32::OLE，这对我没有多大帮助，因为 Win32::OLE 的文档似乎只是表明它可以是任意数量的东西。

有什么想法可以让我先收到较新的电子邮件吗？（反转 $Folder->{Items}？Foreach 以外的东西？将 $folder->{Items} 转储到另一个可以反转的对象中？只需跳过数千封电子邮件，直到日期在过去 2 周内？（我不虽然不喜欢那个））

谢谢。

4

2 回答 2

4

您in从包中导入了子例程 Win32::OLE。这可能是一些可怕的“语法糖”。并深有体会。Win32::OLE我想它会从object返回某种列表$Folder。所以试试这个：

foreach my $msg (reverse $Folder->{items}->in)

或者

foreach my $msg (reverse in($Folder->{items}))

use strict另外，请务必use warnings在每个脚本中确保高质量的代码。如果您可以确定将使用现代 perl，您还可以use v5.10享受该say功能 - 它的行为类似于print，但会自动在您的输出中添加换行符。

于 2012-07-25T20:28:33.450 回答
0

尝试这样的事情

foreach my $msg (reverse @{$Folder->{items}})

不要在 perl 中使用“in”

于 2012-07-25T17:09:11.283 回答