5 my $ta="/tmp/upsc-log-diff.".$$."a";
6 my $tb="/tmp/upsc-log-diff.".$$."b";
7 unlink $ta; unlink $tb;
9 unlink $ta; unlink $tb;
11 my $F="/var/log/upsc.log";
12 open F,$F or die "$F: $!";
26 open TA,">$ta" or die "$ta: $!";
27 open TB,">$tb" or die "$tb: $!";
28 print TA $prev or die "$ta: $!";
29 print TB $this or die "$tb: $!";
30 close TA or die "$ta: $!";
31 close TB or die "$ta: $!";
33 my $td="diff -u $ta $tb|";
34 open TD,$td or die "$td: $!";
35 <TD>=~/^\Q--- / or die "line $line: $_";
36 <TD>=~/^\Q+++ / or die "line $line: $_";
41 close TD; # or die "$td: $!";