Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^2: utf8 characters in Data::Dumper

by remiah (Hermit)
on Nov 25, 2012 at 09:01 UTC ( #1005471=note: print w/ replies, xml ) Need Help??


in reply to Re: utf8 characters in Data::Dumper
in thread utf8 characters in Data::Dumper

Thanks for reply. grondilu

I don't think Data::Dumper changes anything about this issue.

I see. This outputs Hiragana Letter A.

perl -MData::Dumper -Mutf8 -MEncode=encode -e 'print Dumper encode("UTF-8","Hiragana Letter A ...")'
$VAR1 = 'Hiragana Letter A ...';
I have been carelessly used Data::Dumper so far, cause it has been very handy for me. And now I think of overriding "Dumper" function and ... feels not good.

case 1: Anyway, override Dumper.

use Data::Dumper; use Encode::Deep; no strict 'refs'; no warnings 'redefine'; local *Dumper = sub { print "in Dumper override\n"; return Data::Dumper::Dumper( Encode::Deep::encode('UTF-8',@_) +); }; use strict; use warnings; use utf8; print Dumper "Hiragana Letter A ...";
Maybe, I should not do this.

case 2: sub classing(?), Data::Dumper.
I would like to make wrapper class like this.

use strict; use warnings; { package MyDumper; use Any::Moose; use Encode::Deep; sub Dumper{ my $self=shift; return Data::Dumper::Dumper( Encode::Deep::encode('UTF-8',@_) +); } 1; } use utf8; my $d=MyDumper->new(); print $d->Dumper("Hiragana Letter A ...");
I could not "extends" Data::Dumper, cause it's new() function forced to have 2 args ... (I should learn Data::Dumper more...).

Or, Do you have any other module, that cares for encoding?


Comment on Re^2: utf8 characters in Data::Dumper
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005471]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (10)
As of 2015-07-31 04:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (274 votes), past polls