小编Den*_*HER的帖子

如何在perl中编码邮件主题？

现在我终于找到了一些东西,但它仍然无效:

use MIME::Words qw/encode_mimewords/;
$recipientsubject = encode_mimewords('Votre fichier a bien été envoyé');

但(错误的)结果是:

主题:Votre fichier a bien =？ISO-8859-1？Q？= E9t = E9？= =？ISO-8859-1？Q？envoy = E9？=

哪个显示:

Votre fichier abienétéenvoyé

(吃了一些空间)

我想阅读 Windows 联系人（Windows 7 地址簿），但 CoGetClassObject 返回错误，我不知道为什么？

我的代码是：

    IClassFactory* pFactory = NULL;
HRESULT rc;
rc = CoGetClassObject(CLSID_Contact,CLSCTX_INPROC_SERVER,NULL,IID_IClassFactory, (void **) &pFactory);
wprintf( L"Error : %d\n",rc);

它返回“错误：-2147221008”

如果有人对我有建议，那就太好了！

丹尼斯

PS 详细信息：基于http://msdn.microsoft.com/en-us/library/ms735866.aspx（这是相当有问题的）我试图自己做，但函数 CoGetClassObject 返回一个错误，我不知道为什么？

下面的代码是我们正在使用的Perl CGI脚本的原始代码.即使对于非常大的文件,它似乎也在起作用,但对于非常大的文件却不行.

目前的代码是:

$files_location = $c->{target_dir}.'/'.$ID;
open(DLFILE, "<$files_location") || Error('open', 'file');
@fileholder = <DLFILE>;
close (DLFILE) || Error ('close', 'file');

print "Content-Type:application/x-download\n";
print "Content-Disposition:attachment;filename=$name\n\n";
print @fileholder;
binmode $DLFILE;

如果我正确理解代码,它会在"打印"它之前将整个文件加载到内存中.当然我觉得加载和显示它会更好吗？但在阅读了许多论坛和教程之后,我仍然不确定如何做到最好,使用标准的Perl库...

最后一个问题,为什么最后指定"binmode"？

非常感谢任何提示或建议,