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

Re^4: MediaWiki::API->upload() problem

by spekulum (Initiate)
on Sep 27, 2011 at 20:10 UTC ( #928170=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $response = $response->content() if($response->is_success());
    die Dumper($response);
    
  2. or download this
    $ perl test.pl
    $VAR1 = '▒PNG
    
    ...
                        ▒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;';
    
  3. or download this
    $response = $response->decoded_content() if($response->is_success());
    die Dumper($response);
    
  4. or download this
    $ perl test.pl
    $VAR1 = '&#9618;PNG
    
    ...
                        &#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;';
    
  5. or download this
    $response = $response->content() if($response->is_success());
    $response = utf8::downgrade($response);
    die Dumper($response);
    
  6. or download this
    $ perl test.pl
    $VAR1 = 1;
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://928170]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2018-02-21 19:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (287 votes). Check out past polls.

    Notices?