HTTP::Useragent & multipart/form-data

[Alexander (HH)]

Moin Moin!

Hallo Forum!

Hat jemand mal nen Tip, wie ich mit HTTP::UserAgent Binärdaten mitgeben kann?
Mein Ansatz ist Müll und perldoc gibt irgendwie auch nicht das her, was ich suche! Danke...

Soweit mein Ansatz, nur wird das Bild nicht übertragen. :-)

Hier fehlt ein "use strict;", ein -w auf der Shebang-Zeile wäre auch nicht übel.

$browser = LWP::UserAgent->new;
$browser->agent("MeinBroser1.0");

open(DATA, "<2.jpg");

Du hast ein nobelpreisverdächtiges Betriebssystem, wenn es open garantiert fehlerfrei ausführt.

binmode (DATA);
@file = <DATA>;

Du hast ein Array mit Fragmenten der Datei.

close(DATA);

$browser->post($url,
[
name1=>'Markus',
name2=>'M.',
nick=>'Clark',
        blid=>'2.jpg', @file

Hier übergibst Du "blid", "2.jpg", sowie eine unbestimmte Anzahl von Dateifragmenten.

]);

Ich bezweifle, das LWP::UserAgent das macht, was Du willst, wenn Du es ihm auf diese Art vermittelst.

Alexander