Question

我在下面有这个脚本，我想从URL下载pdf

#!/usr/bin/perl
use warnings;
use strict;
use LWP::Simple;

my $save = "C:\\Users\\rahard\\Desktop\\";  
my $file = get 'http://locationoffile';

如何将pdf保存到桌面？（如果我点击URL，它会让我保存随机名称文件）

谢谢

/编辑$ save和编辑$ file location

中的一些语法错误

Answer 1

使用open打开文件句柄并打印到该文件句柄。另请注意，必须转义$save中的每个反斜杠。

my $save = "C:\\Users\\rahard\\Desktop\\";  
my $file = get 'http://file.pdf';

open( FILE, '>', $save . 'filename.pdf' ) or die $!;
binmode FILE;
print FILE $file;
close( FILE );

Answer 2

可能是网址不是pdf的原始位置而是您被重定向到它们吗？如果get的响应不是有效的pdf，则可能是重定向页面的html内容。

我会先测试一下。

因此我会使用WWW::Mechanize或类似的库。

Perl将文件从网站保存到桌面

2 个答案: