Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Sending a text file using POST

by choroba (Cardinal)
on Feb 11, 2016 at 15:27 UTC ( [id://1154967]=note: print w/replies, xml ) Need Help??


in reply to Sending a text file using POST

The details depend on the service that runs on the given server. For example, we at work use something like
#!/usr/bin/perl use warnings; use strict; use MIME::Base64 (); # Encoding of the authentication. use LWP::UserAgent; # Sending the request. use HTTP::Request::Common; # Creating the request. die "Specify File1 [File2...]\n" if @ARGV < 1; my $url = "http://..."; my $user = 'username'; my $password = 'passwd'; die "Cannot find the files specified.\n" if grep ! -f, @ARGV; my $auth_value = 'Basic ' . MIME::Base64::encode("$user:$password", q( +)); my $ua = 'LWP::UserAgent'->new; my $req = POST($url, Content_Type => 'multipart/form-data; charset=utf-8', Authorization => $auth_value, Content => [ Application => 'Testing', map { 'File_' . (1 + $_) => [ $ARGV[ +$_] ] } 0 .. $#ARGV) ]); my $response = $ua->request($req); if ($response->is_success) { print $response->content; } else { die 'ERROR: ', $response->status_line; }

as the service expects File_1, File_2, File_3 etc. as POST parameters.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1154967]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (5)
As of 2024-03-29 04:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found