Data::Dumper and UTF-8

[August Karlstrom]

Hi,

I'm trying to make Dumper display an UTF-8 string but I can't get it to
work:

$ cat test.pl
#!/usr/bin/perl -w

use strict;
use Data:umper;
use utf8;

binmode(STDOUT, ":utf8");

my $s = "\x{263a}";

print "$s\n";
print Dumper($s);
print Dumper("☺");

$ ./test.pl
☺
$VAR1 = "\x{263a}";
$VAR1 = "\x{263a}";

Any clues?


Regards,

August

 

[Brian Wakem]

Hi,

I'm trying to make Dumper display an UTF-8 string but I can't get it to
work:

$ cat test.pl
#!/usr/bin/perl -w

use strict;
use Data:umper;
use utf8;

binmode(STDOUT, ":utf8");

my $s = "\x{263a}";

print "$s\n";
print Dumper($s);
print Dumper("?");

$ ./test.pl
?
$VAR1 = "\x{263a}";
$VAR1 = "\x{263a}";

Any clues?

What version of Perl?

From http://search.cpan.org/~ilyam/Data-Dumper-2.121/Dumper.pm

"Pure Perl version of Data:umper escapes UTF-8 strings correctly only in
Perl 5.8.0 and later."

 

[augukarl]

What version of Perl?
v5.8.8

Fromhttp://search.cpan.org/~ilyam/Data-Dumper-2.121/Dumper.pm

"Pure Perl version of Data:umper escapes UTF-8 strings correctly only in
Perl 5.8.0 and later."

Yes, I've read that. What does Pure Perl mean?


August

 

[Peter Makholm]

Yes, I've read that. What does Pure Perl mean?

It means implementet only using Perl and not by implementing parts of
it in C (or any other language).

//Makholm

 

[jl_post]

I'm trying to make Dumper display an UTF-8 string but I can't get it to
work:

 

[jl_post]

print eval("my " . Dumper($s)); # prints ☺

(The "my " part is to suppress a warning given because the output's
"$VAR1" is caught by "use warnings;" and "use strict;". Optionally,
you may remove that part by using the following lines instead:

# Remove the "$VAR1 = " part with substr():
print eval( substr(Dumper($s), 8) );

Either way should work.)

Jason, I just now figured out (by reading "perldoc Data:umper")
that the "$VAR = " part can be suppressed by setting
$Data:umper::Terse to 1. Therefore, you could add the following two
lines to the end of your script:

$Data:umper::Terse = 1; # to suppress "$VAR1 = "
print eval Dumper($s); # prints ☺

and you'll see that, although Dumper may not output text in the form
you want, eval()ling the output text does return it in the form you
want.

-- Jean-Luc

 

[Peter J. Holzer]

Hi,

I'm trying to make Dumper display an UTF-8 string but I can't get it to
work:

$ cat test.pl
#!/usr/bin/perl -w

use strict;
use Data:umper;
use utf8;

binmode(STDOUT, ":utf8");

my $s = "\x{263a}";

print "$s\n";
print Dumper($s);
print Dumper("☺");

$ ./test.pl
☺
$VAR1 = "\x{263a}";
$VAR1 = "\x{263a}";

Looks ok to me. What output did you expect?

hp