保存使用OLE和Perl在Internet Explorer中打开的pdf文件

发布时间：2020-12-16 06:25:24 所属栏目：大数据来源：网络整理

导读：我正在寻找一种方法来使用Perl在Internet Explorer中打开PDF文件,然后保存它. (我希望用户能够与脚本交互并决定是否发生下载,这就是为什么我想在IE中显示pdf,所以我不能使用像LWP :: Simple这样的东西.) 作为一个例子,这段代码加载(显示)一个pdf,但我无法弄

我正在寻找一种方法来使用Perl在Internet Explorer中打开PDF文件,然后保存它.

(我希望用户能够与脚本交互并决定是否发生下载,这就是为什么我想在IE中显示pdf,所以我不能使用像LWP :: Simple这样的东西.)

作为一个例子,这段代码加载(显示)一个pdf,但我无法弄清楚如何让Perl告诉IE保存文件.

use Win32::OLE;
my $ie = Win32::OLE->new("InternetExplorer.Application");
$ie->{Visible} = 1;
Win32::OLE->WithEvents($ie);

$ie->Navigate('http://www.aeaweb.org/Annual_Meeting/pdfs/2014_Registration.pdf');

我想我可能需要使用OLE方法execWB,但我无法弄明白.

解决方法

您要做的是自动化Internet Explorer UI.有很多图书馆可以做到这一点.您告诉库找到您感兴趣的窗口,然后您可以向窗口发送击键或命令(在您的情况下为CTRL-S).

如何在Perl中执行此操作的概述位于here.

示例语法：

my @keys = ( "%{F}","{RIGHT}","E",);
for my $key (@keys) {
    SendKeys( $key,$pause_between_keypress );
}

The code starts with an array containing the keypresses. Note the
format of the first three elements. The keypresses are: Alt+F,right
arrow,and E. With the application open,this navigates the menu in
order to open the editor.

另一种选择是使用LWP：

use LWP::Simple;

my $url = 'http://www.aeaweb.org/Annual_Meeting/pdfs/2014_Registration.pdf';
my $file = '2014_Registration.pdf';

getstore($url,$file);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!