utf8 krimi
The snippet can be accessed without any authentication.
Authored by
Gerhard Gonter
dumper.pl 555 B
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
use Data::Dumper;
my $Dumper= 'bla';
*Dumper= *myDumper;
print __LINE__, " Dumper=[$Dumper]\n";
binmode STDOUT, 'utf8';
our $VAR1;
my $data = { umlaut => 'ä' }; # this is a non-ACII a Umlaut
# my $data= 'ä'; # this is a non-ACII a Umlaut
my $x= Dumper($data);
print __LINE__, " x=[$x]\n";
sub myDumper
{
my $var= shift;
my $dumped= Data::Dumper::Dumper($var);
# print __LINE__, " dumped=[$dumped]\n";
eval $dumped;
sprintf("%s", Data::Dumper::Dumper($VAR1));
}
__END__
Please register or sign in to comment