36 lines
1.1 KiB
Perl
36 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
#use blib "../../Perl/Decoder/blib/";
|
|
#use blib "../../Perl/Encoder/blib/";
|
|
#use lib "../../Perl/shared/t/lib/";
|
|
|
|
use Sereal::Encoder qw(encode_sereal);
|
|
|
|
my $obj1 = {
|
|
ValueStr => "string as string value which actually should be 32+ characters",
|
|
ValueByte => "string as binary value",
|
|
ValueInt => 10,
|
|
ValueSlice => [ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0, 15.0, 16.0, 17.0 ],
|
|
ValueHash => {
|
|
key1 => "unique value",
|
|
key2 => "duplicate value",
|
|
key3 => "deplicate value",
|
|
}
|
|
};
|
|
|
|
my $obj2 = {
|
|
ValueStr => "another string as string value which actually should be 32+ characters",
|
|
ValueByte => "another string as binary value",
|
|
ValueInt => -10,
|
|
ValueSlice => [ 18.0, 19.0, 20.0 ],
|
|
ValueHash => {
|
|
key1 => "unique value",
|
|
key2 => "duplicate value",
|
|
key3 => "deplicate value",
|
|
}
|
|
};
|
|
|
|
open(my $fh, '>', $ARGV[0] . "/test-decode-struct.srl") or die $!;
|
|
print $fh encode_sereal([ $obj1, $obj2, $obj1 ], { dedupe_strings => 1 });
|
|
exit;
|