-
Notifications
You must be signed in to change notification settings - Fork 4
/
Cmt2PrjDiff.perl
executable file
·78 lines (67 loc) · 1.8 KB
/
Cmt2PrjDiff.perl
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
#!/usr/bin/perl
use lib ("$ENV{HOME}/lookup", "$ENV{HOME}/lib64/perl5", "/home/audris/lib64/perl5","$ENV{HOME}/lib/perl5", "$ENV{HOME}/lib/x86_64-linux-gnu/perl", "$ENV{HOME}/share/perl5");
use strict;
use warnings;
use Error qw(:try);
use TokyoCabinet;
use Compress::LZF;
sub toHex {
return unpack "H*", $_[0];
}
sub fromHex {
return pack "H*", $_[0];
}
sub safeDecomp {
my ($codeC, $n) = @_;
try {
my $code = decompress ($codeC);
return $code;
} catch Error with {
my $ex = shift;
print STDERR "Error: $ex; $n\n";
return "";
}
}
my $split = 1;
$split = $ARGV[2] + 0 if defined $ARGV[2];
my (%p2c, %p2c1);
for my $sec (0..($split-1)){
my $fname = "$ARGV[0].$sec.tch";
$fname = $ARGV[0] if ($split == 1);
tie %p2c, "TokyoCabinet::HDB", "$fname", TokyoCabinet::HDB::OREADER,
16777213, -1, -1, TokyoCabinet::TDB::TLARGE, 100000
or die "cant open $fname\n";
$fname = "$ARGV[1].$sec.tch";
$fname = $ARGV[1] if ($split == 1);
tie %p2c1, "TokyoCabinet::HDB", "$fname", TokyoCabinet::HDB::OREADER,
16777213, -1, -1, TokyoCabinet::TDB::TLARGE, 100000
or die "cant open $fname\n";
while (my ($k, $v) = each %p2c){
if (defined $p2c1{$k}){
my $v1 = $p2c1{$k};
if ($v1 ne $v){
my %a = ();
my %b = ();
for my $p (split(/;/, safeDecomp ($v1), -1)){
$a{$p}++;
}
for my $p (split(/;/, safeDecomp ($v), -1)){
if (!defined $a{$p}){
$b{$p}++;
}
}
my $dif = join ';', keys %b;
if ($dif ne ""){
my $c = toHex ($k);
print "$c;$dif\n";
}
}
}else{
my $vD = safeDecomp ($v);
my $c = toHex ($k);
print "$c\;$vD\n";
}
}
untie %p2c1;
untie %p2c;
}