Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/BSON-v1.10.2/corpus/decode-dump.pl
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use BSON qw/decode/;
use MongoDB::BSON;
use MongoDB::OID;
use MongoDB::BSON::Binary;
my $codec = MongoDB::BSON->new;
local $Data::Dumper::Indent = 0;
local $Data::Dumper::Useqq = 1;
local $Data::Dumper::Quotekeys = 1;
my $from_cli = @ARGV;
while (1) {
my $s = $from_cli ? shift(@ARGV) : <STDIN>;
last unless defined $s;
chomp $s;
$s =~ tr[ ][]s;
$s = pack("H*",$s);
my $pp = eval { decode($s) };
warn "PP error: $@\n" if $@;
$pp = Dumper($pp);
my $xs = eval { $codec->decode_one($s) };
warn "XS error: $@\n" if $@;
$xs = Dumper($xs);
say "PP\n$pp\n";
say "XS\n$xs\n";
say "PP and XS are " . ($pp eq $xs ? "the same" : "NOT the same");
}
Mini Shell