comment on

Hello

I'm trying to upload a picture to a server with the following code:

#!/usr/bin/perl

use HTTP::Request;
use LWP::UserAgent;
use MIME::Base64 qw(encode_base64);

open(BILD,"picture.gif");
while(read(BILD,$buf,60*57))
  {
    $userfile .= encode_base64($buf,"");
  }
close(BILD);

$browser = new LWP::UserAgent;

my $req = new HTTP::Request POST,'http://192.168.1.241/GMS/bildarchiv/
+manage_addGMSImage',[file => $userfile];

$req->authorization_basic('user','passwd');

$ergebnis = $browser->request($req)->as_string;
print "Bild abgeschickt\n".$ergebnis;
[download]

But the sript stops with the following error message:

Can't call method "clone" on unblessed reference at /usr/lib/perl5/sit
+e_perl/5.6.0/HTTP/Message.pm line 53.
[download]

What does that mean?

The error message disappears when I remove the
,[file => $userfile]
but then my server script complains about the missing "file".

I have looked at "man LWP", "man lwpcook" and the "Perl Cookbook", but I can't find an example that fits.

What is my mistake?

Thanks in advance

Sven Rudolph

In reply to LWP and POST (Oh no, not again) by smr42

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


P is for Practical
	PerlMonks