in reply to Re^3: MediaWiki::API->upload() problem
in thread MediaWiki::API->upload() problem

Any decode functions don't work.

$response return code of data in image format, i. e. png, jpg

Some examples:

$response = $response->content() if($response->is_success());
die Dumper($response);

[download]
$ perl test.pl
$VAR1 = '▒PNG

IHD▒6n▒sRGB▒▒▒gAMA▒▒
                    ▒a cHRMz&▒▒▒▒▒
+u0&#9618;`:&#9618;p&#9618;&#9618;Q<!IDATWc&#9618;
&#9618;*1&#9618;&#9618;Ig&#9618;
&#9618;&#9618;&#9618;+(&#9618;&#9618;K&#9618;&&#1432;IEND&#9618;B`&#96
+18;';

[download]
$response = $response->decoded_content() if($response->is_success());
die Dumper($response);

[download]
$ perl test.pl
$VAR1 = '&#9618;PNG

IHD&#9618;6n&#9618;sRGB&#9618;&#9618;&#9618;gAMA&#9618;&#9618;
                    &#9618;a cHRMz&&#9618;&#9618;&#9618;&#9618;&#9618;
+u0&#9618;`:&#9618;p&#9618;&#9618;Q<!IDATWc&#9618;
&#9618;*1&#9618;&#9618;Ig&#9618;
&#9618;&#9618;&#9618;+(&#9618;&#9618;K&#9618;&&#1432;IEND&#9618;B`&#96
+18;';

[download]
$response = $response->content() if($response->is_success());
$response = utf8::downgrade($response);
die Dumper($response);

[download]
$ perl test.pl
$VAR1 = 1;

[download]
Probably, needs to use some specific libs for work with it?

Replies are listed 'Best First'.
Re^5: MediaWiki::API->upload() problem
by Anonymous Monk on Sep 27, 2011 at 20:51 UTC

    I have no idea what you're getting at

    When you get HTTP::Message content must be bytes it means you must only give it bytes not text, in other words, don't use decoded_content

    If you're saying that using ->content you still get this error(content must be bytes), that means $response isn't the culptrit, then you need to identify which parameter is triggering it by process of elimination, and make some bytes (encode)

    perlunitut: Unicode in Perl#encoding

[reply]
[d/l]

In Section Seekers of Perl Wisdom