Shell Programming and Scripting

Data 1
Value One 24.24426
Value Two 45.24535
Other values in the list 85.24535

Data 2
Value One 44.24225
Value Two 25.24535
Other values of new 55.13546

Variable=54.24425 35.24535  25.53231 24.24225 35.24535 28.350132

New File generated
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.25225 -20.00000
Value Two 35.24535 +10.00000
Other values of new  28.350132  -26.785328

#!/usr/bin/perl
use strict;
use warnings;

open (my $var, '<', $ARGV[0]);
open (my $data, '<',$ARGV[1]);

my$var_string=readline($var);
my @vars=($var_string=~/(\d\S+)/g);
my $index=0;
while(<$data>){
    if ($_=~/(\d+\.\d+)/){
        my $replacement="$vars[$index] ";
        my $replacement_abs=abs($vars[$index] - $1);
        $replacement .= ($vars[$index]>=$1)?"+$replacement_abs":"-$replacement_abs";
        $_=~s/(\d+\.\d+)/$replacement/;
        $index++
    }
    print
}

awk -v Variable="54.24425 35.24535 24.24225 35.24535" \
    '
    BEGIN{
            split(Variable,A)
         }
 /^Value/{
            ++i
            $3 = A[i] FS A[i] -$3
         }1
    '  file

awk -v Variable='54.24425 35.24535 24.24225 35.24535' '
BEGIN { split(Variable, vlist) }
$1 == "Value" {
        $4 = sprintf("%+.5f", vlist[++v] - $3)
        $3 = vlist[v]
}
1' file1.text > file2.txt

Data 1
Value One 54.24425 +29.99999
Value Two 35.24535 -10.00000

Data 2
Value One 24.24225 -20.00000
Value Two 35.24535 +10.00000

Data 1
Value One 54.24425 +30.00001 
Value Two 35.24535 -10.00000

Data 2
Value One 24.25225 -20.00000
Value Two 35.24535 +10.00000