msgpack-dump

   1 #!/usr/bin/perl -w
   2 # Copyright 2020-2021 Ian Jackson and contributors to Otter
   3 # SPDX-License-Identifier: AGPL-3.0-or-later
   4 # There is NO WARRANTY.
   5
   6 use strict;
   7 use Data::MessagePack;
   8 use Data::Dumper;
   9 $Data::Dumper::Sortkeys=1;
  10 $/ = undef;
  11 $!=0; $_ = <> // die $!;
  12 my $mp = Data::MessagePack->new();
  13 my $val = $mp->unpack($_);
  14 print Dumper($val);