Как сохранить файл с аутентифицированного URL NTLM в Perl Script

Question

Я действительно новичок в Perl Script, и я разрабатываю скрипт для доступа к URL с проверкой подлинности NTLM и сохранения содержимого ответа в папке. Этот контент является файлом .xls, .doc, .pdf, .ppt и т. Д. Фактически, мне удалось разработать код аутентификации NTLM. Но мое другое требование - сохранить ответный контент в папке на сервере. ты можешь помочь мне с этим?

#!/usr/bin/perl 

use LWP::UserAgent; 
use HTTP::Request::Common; 

my $url = "http://myurl.com/AdsSDAF34141J"; 
my $ua = new LWP::UserAgent(keep_alive => 1); 

my $username = 'ap\<username>'; 
my $password = '<password>'; 

$ua->credentials('myurl.com:80', '', $username, $password); 
my $req = GET $url; 
print "--Peforming request now...---------\n"; 
my $res = $ua->request($req); 
print "--Done with request ...---------\n"; 


if ($res->is_success) { 
    print $res->content; 
} else { 
    print "Error: " . $res->status_line . "\n"; 
} 

exit 0; 

Я хочу сохранить содержимое $ res-> в папку. Как я уже сказал, это $ res-> содержание является файлом типа .xls, .doc, .ppt и т.д. Спасибо заранее

Answer 1

Как это так:

if ($res->is_success) { 
    my $filename = 'file.xls'; 
    open(my $fh,'>',$filename) or die $!; 
    binmode($fh); 
    print $fh $res->content; 
    close($fh); 
} else { 

или

### this way it automatically stored in that file 
my $filename = 'file.xls'; 
$ua->request($req, $filename);