펄에서 파일을 업로드하기위한 헤더는 무엇입니까?

Question

나는 이것을 두시간 동안 붙들어 왔고 연구를 통해 해결책을 찾지 못했습니다.

다음 HTML 코드는 내가 필요로 무엇을 작동합니다

<form action="uploader.php" method="POST" enctype="multipart/form-data"> 
<label for="file">Filename:</label> 
<input type="file" name="Filedata" id="file" /> 
<br /> 
<input type="submit" name="submit" value="Submit" /> 
</form> 

그러나 다음 펄 코드가 작동하지 않습니다. 나는 이것이 필요한 헤더를 보내지 않기 때문이라고 생각합니다.

my @headers = ('Content-Disposition' => 'form-data; name="Filedata"; filename="test.txt"', 
       'Content-Type'  => 'text/plain', 
       'Content'    => 'File content goes here.'); 

my $browser = LWP::UserAgent->new; 
my $response = $browser->post('uploader.php', undef, @headers); 

아무도 내가 작동하지 않는 이유를 지적 할 수 있으면 감사 할 것입니다. 감사합니다.

Answer 1

my $response = $ua->post('http://.../uploader.php', 
    Content_Type => 'form-data', 
    Content => [ 
     Filedata => [ undef, 'test.txt', 
     Content_Type => 'text/plain', 
     Content  => "Hello, World!\n", 
     ], 
     submit => 'Submit', 
    ], 
); 

인수는 HTTP::Request::Common의 POST 하위에 동일한 인수이다.

실제로 디스크에서 파일을 읽을 수도 있습니다.

my $response = $ua->post('http://.../uploader.php', 
    Content_Type => 'form-data', 
    Content => [ 
     Filedata => [ 'test.txt', 'test.txt', 
     Content_Type => 'text/plain', 
     ], 
     submit => 'Submit', 
    ], 
); 

Answer 2

분명히 틀린 내용 유형 text/plain을 제공하고 있습니다. 파일이 text/plain 인 multipart/form-data MIME 메시지를 보내야합니다. 은 일 수 있습니다. MIME 모듈을 사용하여이 작업을 수행하지만, jpalecek이 지적한대로 HTTP::Request::Common은 이미 수행 방법을 알고 있습니다. 이 같은 요청은 작동합니다 :

my $response = $browser->request(
    POST "http://somewhere/uploader.php", 
     Content_Type => 'form-data', 
     Content => [ 
      Filedata => [ 
       undef, 
       "test.txt", 
       Content_Type => "text/plain", 
       Content => "file content goes here" 
      ] 
     ] 
); 

또는 TEST.TXT 실제로 디스크에있는 경우 :

my $response = $browser->request(
    POST "http://somewhere/uploader.php", 
     Content_Type => 'form-data', 
     Content => [ 
      Filedata => [ "/path/to/test.txt" ] 
     ] 
); 

충분합니다. 두 경우 모두 use HTTP::Request::Common;을 코드에 추가하십시오. ->post위한