3
|
1 use strict;
|
|
2 use warnings;
|
|
3
|
5
|
4 my $originlog = shift or die "use originlog cbclog";
|
|
5 my $cbclog = shift or die "use originlog cbclog";
|
3
|
6
|
|
7 open my $ofh, '<', $originlog;
|
|
8 open my $cfh, '<', $cbclog;
|
|
9
|
5
|
10 print "Originlog:CbClog\n";
|
|
11
|
3
|
12 while (1){
|
|
13 my $orig_line;
|
|
14 do {
|
|
15 $orig_line = <$ofh>;
|
|
16 } while (!($orig_line =~ /\$\d+ \= (\d+)/));
|
|
17
|
|
18 $orig_line = $1;
|
|
19
|
|
20 my $c_line;
|
|
21
|
|
22 do {
|
|
23 $c_line = <$cfh>;
|
|
24 } while (!($c_line !~ /\$\d+ \= (\d+)/));
|
|
25
|
|
26 $c_line = $1;
|
|
27
|
|
28 if ($c_line != $orig_line){
|
|
29 print "*";
|
|
30 print "$orig_line : $c_line\n";
|
|
31 exit 0;
|
|
32 }
|
|
33
|
|
34 print "$orig_line : $c_line\n";
|
|
35
|
|
36 }
|