Re^2: PUT a Multipart request in PERL

in reply to Re: PUT a Multipart request in PERL
in thread PUT a Multipart request in PERL

Hi Monk, Here is my code:

use WWW::Mechanize;
my $mech = WWW::Mechanize->new(); 

my $xmlfile = [ 'C:\\temp\\Test_1.xml', 
        'Test_1.xml',
        'Content-type' => 'text/xml'
        ];

my $docfile = [ 'C:\\temp\\Test_1.doc', 
        'Test_1.doc',
        'Content-type' => 'application/msword'
        ];

my $signedurl =  'http://someURL.com';

my $myresponse = $mech->put($signedurl, 'Content' => [     'file1' => 
+$xmlfile, 'file2' => $docfile    ]   );
[download]

It is producing following ERROR:


Not a SCALAR reference at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm 
+line 156. 
at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm line 156
HTTP::Message::add_content('HTTP::Request=HASH(0x32e2d9c)', 'ARRAY(0x3
+2113f4)') called at C:/Dwimperl/perl/vendor/lib/HTTP/Request/Common.p
+m line 108
HTTP::Request::Common::_simple_req(undef, undef) called at C:/Dwimperl
+/perl/vendor/lib/HTTP/Request/Common.pm line 22

HTTP::Request::Common::PUT('http://someURL.com.../', 'Content', 'ARRAY
+(0x32113f4)') called 
at C:/Dwimperl/perl/site/lib/WWW/Mechanize.pm line 439
WWW::Mechanize::_SUPER_put('WWW::Mechanize=HASH(0x30a72bc)', 
'http://someURL.com/...', 'Content', 'ARRAY(0x32113f4)') called at 
C:/Dwimperl/perl/site/lib/WWW/Mechanize.pm line 430
WWW::Mechanize::put('WWW::Mechanize=HASH(0x30a72bc)', 'http://someURL.
+com/...', 'Content', 'ARRAY(0x32113f4)')
called at multipart_1.pm line 110
Utils::Words_multipart('Utils=HASH(0x30a49b4)') called at multipart_1.
+pm line 138

Press any key to continue . . .
[download]

Please guide

Comment on Re^2: PUT a Multipart request in PERL Select or Download Code

Replies are listed 'Best First'.
Re^3: PUT a Multipart request in PERL by Anonymous Monk on Apr 06, 2015 at 23:49 UTC
Please guide I already did, which part was unclear?	[reply]
Re^4: PUT a Multipart request in PERL by xpert (Initiate) on Apr 07, 2015 at 04:44 UTC
I am getting Error: Not a SCALAR reference at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm line 156. I am using WWW::Mechanize as mentioned by you, even then same error. Please, guide how to get rid of this error.	[reply]
Re^5: PUT a Multipart request in PERL by Anonymous Monk on Apr 07, 2015 at 07:28 UTC
I am getting Error: Not a SCALAR reference at C:/Dwimperl/perl/vendor/lib/HTTP/Message.pm line 156. I am using WWW::Mechanize as mentioned by you, even then same error. Please, guide how to get rid of this error. Ok, I'll quote Re: PUT a Multipart request in PERL this time with more emphasis https://metacpan.org/pod/HTTP::Request::Common#PUT-url says its like https://metacpan.org/pod/HTTP::Request::Common#GET-url and not like https://metacpan.org/pod/HTTP::Request::Common#POST-url meaning you have create a POST request and then alter it Do you now know what to do next (create POST request and change it into a PUT)?	[reply]

In Section Seekers of Perl Wisdom