1

私は Perl スクリプトを初めて使用し、NTLM 認証を使用して URL にアクセスし、応答コンテンツをフォルダーに保存するスクリプトを開発しています。このコンテンツは、.xls、.doc、.pdf、.ppt などのファイルです。実際に、NTLM 認証コードを開発することができました。しかし、私のもう 1 つの要件は、応答コンテンツをサーバー内のフォルダーに保存することです。これで私を助けてもらえますか？

#!/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->content をフォルダに保存したい。私が言ったように、この $res->content は .xls、.doc、.ppt などのタイプのファイルです。よろしくお願いします

4

1 に答える 1

0

このように：

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 );
于 2013-11-13T14:41:55.623 に答える