Perl сохранить файл с сайта на рабочий стол

Question

У меня есть этот скрипт ниже, где я хочу скачать pdf с URL

#!/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

Может быть, URL-адрес не является исходным местоположением PDF-файла, и вы перенаправлены на них? Если ответ get не является допустимым pdf, это может быть html-содержимое перенаправляющей страницы.

Я бы сначала проверил это.

Для этого я бы использовал WWW::Mechanize или подобную библиотеку.