|
@@ -10,12 +10,12 @@ DIRB="$2"
|
|
|
for B in $DIRB/*; do
|
|
|
A=$DIRA/`basename $B`
|
|
|
if [ -f $A ]; then
|
|
|
- perl -pe 's/^\s*\!*\d+:/ 1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$A" > "$A.tmp"
|
|
|
+ perl -pe 's/^\s*\!*\d+(\*?):/ 1$1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$A" > "$A.tmp"
|
|
|
else
|
|
|
cat /dev/null > "$A.tmp"
|
|
|
fi
|
|
|
- perl -pe 's/^\s*\!*\d+:/ 1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$B" > "$B.tmp"
|
|
|
- diff -u "$A.tmp" "$B.tmp"
|
|
|
+ perl -pe 's/^\s*\!*\d+(\*?):/ 1$1:/; s/^([^:]+:)[\d\s]+:/$1/; s/^ *-:(Runs|Programs):.*//;' "$B" > "$B.tmp"
|
|
|
+ diff -u "$A.tmp" "$B.tmp" |perl -pe 's/^((?:\+\+\+|---)(?:.*tmp))\s+.*/$1/;'
|
|
|
rm "$A.tmp" "$B.tmp"
|
|
|
done
|
|
|
|