[SOLVED] Perl to compare value differences

eminempark · 01-06-2013, 08:13 PM

For example, I have a data in "one.txt" which is

Code:

# ID Temperature
1 25.0
2 25.0
3 25.1
4 25.6
5 25.7
6 25.9

And I want to filter out the temperature which has difference less than 0.2 with previous REGISTERED value. The output should be

Code:

# ID Temperature
1 25.0
4 25.6
6 25.9

binary_pearl · 01-06-2013, 09:20 PM

Not sure how familiar you are with perl, but this framework below may help. What it's doing is to open the file one.txt, and then read the contents into an array (@records). If then loops through each line, using a regular expression to break apart the id, the integear part of the temperature and the decimal part of the temperature. From there you can use those variables ($id, $int, $decimal) for further math. Hope this helps:

Code:

#!/usr/bin/perl

use strict;

my @records = ();
my $record = "";

my $id = "";
my $int = "";
my $decimal = "";

open (INPUTFILE, "one.txt");

@records = <INPUTFILE>;

foreach $record (@records) {
        chomp $record;

        if ($record =~ m/([0-9].*)( )([0-9].*)(.)([0-9].*)/) {
                $id = $1;
                $int = $3;
                $decimal = $5;

                #... do stuff
        }
}

close (INPUTFILE);

--Shaun