Shell Programming and Scripting

awk '
# dpm(v1, v2) returns the maximum number of digits after the decimal point in
#	the two given values, or zero if one of the values does not contain ".".
# Note that this function only looks for a period to determine that the field
# should be processed.  If text appears in the file that contains a period in
# the last word on an input line, additional checks would need to be added to
# verify that the last word on the line is of the form "[-+]<digit>+.<digit>+"
# (i.e., an optional leading + or - followed by one or more decimal digits
# followed by a period followed by one or more decimal digits) and return zero
# if other characters are present or if the match is incomplete.
function dpm(v1, v2,	n1, n2, x1, x2) {
	if((x1 = index(v1, ".")) == 0 || (x2 = index(v2, ".")) == 0) return(0)
	n1 = length(v1) - x1	# # of digits after "." in v1.
	n2 = length(v2) - x2	# # of digits after "." in v2.
	return(n1 > n2 ? n1 : n2)	# return max(n1, n2).
}
NR == FNR {	# Get values from the value list file:
	# The values can be on separate lines, or space or tab separated on one
	# or more lines.
	for(i = 1; i <= NF; i++) vlist[++vlc] = $i
	next
}
p = dpm($NF, vlist[v + 1]) {
	# We are working on the 2nd input file and have skipped this clause if
	# the last field on this line does not contain a decimal point or if we
	# have run out of variables from the 1st input file.
	# The ++v on the next lines consumes the next value in vlist.
	if(vlist[++v] + 0 != $NF) {
		# We only get here if the last field on this line contains a
		# period and the next value in vlist[] is different from the
		# last field on this line.
		# Add a new field showing the difference between the values
		# printed with the maximum number of digits after the decimal
		# point that appeared in vlist[] and the last field on the
		# original input line.
		$(NF + 1) = sprintf("%+.*f", p, vlist[v] - $NF)
		# Replace the original last field with the number from the value
		# from vlist[].
		$(NF - 1) = vlist[v]
	}
}
1	# Print the (possibly updated) line from the 2nd input file.
' varnw1 file1 > file2

20.90000 21.45000 28.25000 29.35000 1.75000 2.75000 8.30000 9.80000 1.61140
1.66910 0.91310 0.89940 102.88000 101.40000 1.35200 1.36900 12.25710 7.60000
2.58430 2.13270 4508.34000 4318.94000 2.73230 2.73230000 16097.33000 1219.47000
1219.47000

Values
Data 20.90000
Data1 21.45000
Value 1
Data 28.25000
Data1 29.35000
Value 2
Data 1.75000
Data1 2.75000
Value 3
Data1 8.30000
Data2 9.80000
Values data text in the text with in
Data1 1.61140
Data2  1.66910
Values text in the text
Data1 0.91310
Data2 0.89940
Data in the text
Data1 102.88000
Data2 101.40000
Data in the example
Data1 1.35200
Data2 1.36900
Text example data with text
Data1 12.25710
Data2 7.60000
Data with text
Data1 2.58430
Data2 2.13270
Data of the text
Data1 4508.34000
Data2 4318.94000
Values in data
Data1 2.73300
Data2 2.73300
Data in the text
Data1
Data2 16097.33000
Data in all text
Data1 1219.47000
Data2 1219.47000

Values
Data 20.90000
Data1 21.45000
Value 1
Data 28.25000
Data1 29.35000
Value 2
Data 1.75000
Data1 2.75000
Value 3
Data1 8.30000
Data2 9.80000
Values data text in the text with in
Data1 1.61140
Data2  1.66910
Values text in the text
Data1 0.91310
Data2 0.89940
Data in the text
Data1 102.88000
Data2 101.40000
Data in the example
Data1 1.35200
Data2 1.36900
Text example data with text
Data1 12.25710
Data2 7.60000
Data with text
Data1 2.58430
Data2 2.13270
Data of the text
Data1 4508.34000
Data2 4318.94000
Values in data
Data1 2.73230 -0.00070
Data2 2.73230000 -0.00070000
Data in the text
Data1
Data2 16097.33000
Data in all text
Data1 1219.47000
Data2 1219.47000

54.24425 35.24535  25.53231 24.24225 35.24535 28.350132

Data 1
Value One 54.24425 +29.99999
Value Two 35.24535 -10.00000
Other values in the list 25.53231 -59.71304

Data 2
Value One 24.24225 -20.00000
Value Two 35.24535 +10.00000
Other values of new 28.350132 -26.785328

        $(NF + 1) = sprintf("%+.*f", p, vlist[v] - $NF)

        $(NF + 1) = sprintf("%+.*f", p, $NF - vlist[v])

if(vlist[++v] + 0 != $NF) {

if(vlist[++v] - 0 != $NF) {