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