Comment télécharger un fichier à partir d'une requête POST. CONTENT_TYPE: application/octet-stream. Perl

Question

je reçois une requête POST avec

CONTENT_TYPE: application/octet-stream 

Je reçois toutes les données comme celui-ci

my $cgiQuery = CGI->new() or die(); 
my $cgiData = $cgiQuery->Vars; 

my $getQuery = CGI->new($ENV{QUERY_STRING}); 
my $getData = $getQuery->Vars; 

foreach my $getKey(keys %{$getData}) 
{ 
    $cgiData->{$getKey} = $getData->{$getKey}; 
} 

my $data = $cgiQuery->param('POSTDATA'); 

Mais lorsque je tente d'imprimer

print Dumper($data) ."\n"; 
print Dumper($cgiData) ."\n"; 

Je reçois ceci:

$VAR1 = 'type=catalog&mode=file&filename=offers0_14.xml'; 

$VAR1 = { 
     'POSTDATA' => 'type=catalog&mode=file&filename=offers0_14.xml', 
     'session' => 'aa4979ad18f64e4d959dd16444cee5fd' 
    }; 

Comment puis-je télécharger le fichier filename = offers0_14.xml sur le serveur?

Answer 1

La solution est la suivante, que POSTDATA est un fichier binaire. Donc, j'ai obtenu ce fichier par ce code

my $file_cgi = CGI->new($ENV{POSTDATA}); 
my $file = $file_cgi->Vars; 

my $filename = path_to_the_file_on_the_server;  
open (OUTFILE,"> $filename"); 
print OUTFILE $file->{POSTDATA}; 
close OUTFILE; 

Answer 2

Si vous souhaitez publier un fichier:

open(my $fh, '<:raw', $qfn) 
    or die $!; 

my $file = do { local $/; <$fh> }; 

$ua->post($uri, 
    Content_Type => 'application/octet-stream', 
    Content => $file, 
); 

Pour le recevoir:

my $file = $cgi->param('POSTDATA'); 

---

Si vous souhaitez publier un formulaire qui comprend un champ de téléchargement de fichier:

$ua->post($uri, 
    Content_Type => 'form-data', 
    Content => [ 
     type => 'catalog', 
     mode => 'file', 
     file => [ $qfn ], 
    ], 
); 

Pour le recevoir:

my $fn = $cgi->param('file'); # Not safe to use!!! 
my $fh = $cgi->upload('file'); 
my $file = do { local $/; <$fh> };