1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/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");
}
|
