Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
$h{"a", 1, "b", 2} = 1;
$h{a1b2} = 2;
print Dumper \%h;
  2. or download this
    $VAR1 = {
          'a1b2' => 2,
          'a1b2' => 1
        };
  3. or download this
    use Data::Dumper;
$h{"a", 1, "b", 2} = 1;
...
$_ = Dumper \%h;
s/(\P{IsPrint})/"\\x{".sprintf "%04x}", ord $1/ge;
print
  4. or download this
    $VAR1 = {
          'a1b2' => 2,
          'a\x{001c}1\x{001c}b\x{001c}2' => 1
        };