#! /usr/bin/env perl
 
#PUBLIC DOMAIN, NO WARRANTY
 
use strict;
use warnings FATAL=>'all';
use autodie;
 
die "usage: get_line.pl data.txt <number>\n" if(scalar(@ARGV)!=2);
 
my $file=shift(@ARGV);
my $target_val=shift(@ARGV);
my $delta_abs_min=99999999;
my $line_delta_min='';
 
print "target value is $target_val\n";
 
open my $fh, '<', $file;
 
my ($l, $d, $v);
while(($l=<$fh> ))
{
    chomp($l);
    $l=~s/^\s+//;
    $v=(split(/\s+/, $l))[0];
    my $d=abs($v-$target_val);
    if($d<$delta_abs_min)
    {
        $delta_abs_min=$d;
        $line_delta_min=$l;
    }
}
 
printf("nearest: %s (diff %02.1f%%)\n", $line_delta_min, 100*$delta_abs_min/$target_val);

./get_line.pl data.txt 100
target value is 100
nearest: 99.8     52.6     39.9     63.4     39.9     57.1     38.0     (diff 0.2%)

#! /usr/bin/env perl
 
#PUBLIC DOMAIN, NO WARRANTY
 
use strict;
use warnings FATAL=>'all';
use autodie;
 
die "usage: get_line.pl data.txt <number>\n" if(scalar(@ARGV)!=2);
 
my $file=shift(@ARGV);
my $target_val=shift(@ARGV);
my $delta_abs_min=99999999;
my $line_delta_min='';
 
print "target value is $target_val\n";
 
open my $fh, '<', $file;
 
my ($l, $d, $v);
my @a;
while(($l=<$fh> ))
{
    chomp($l);
    next if($l=~/^\s+$/);
    $l=~s/^\s+//;
    my @a=split(/\s+/, $l);
    next if(!scalar(@a));
    $v=$a[0];
    my $d=abs($v-$target_val);
    if($d<$delta_abs_min)
    {
        $delta_abs_min=$d;
        $line_delta_min=$l;
    }
}
 
printf("nearest: %s (diff %02.1f%%)\n", $line_delta_min, 100*$delta_abs_min/$target_val);

#! /usr/bin/env perl
 
#PUBLIC DOMAIN, NO WARRANTY
 
use strict;
use warnings FATAL=>'all';
use autodie;
 
die "usage: get_line.pl data.txt <number>\n" if(scalar(@ARGV)!=2);
 
my $file=shift(@ARGV);
my $target_val=shift(@ARGV);
my $delta_abs_min=99999999;
my $line_delta_min='';
my ($nb_lines, $nb_skipped)=(0, 0);
 
print "target value is $target_val\n";
 
open my $fh, '<', $file;
 
my ($l, $d, $v);
my @a;
while(($l=<$fh> ))
{
    chomp($l); #remove newline at the end
    if($l=~/^\s+$/) #skip empty
    {
        $nb_skipped++;
        next;
    }
    if($l=~/[^0-9,. ]/) #skip everything that contains other characters than '0'-'9', comma, dot, space
    {
        $nb_skipped++;
        next;
    }
    $l=~s/^\s+//; #remove spaces/tabs at beginning of line
    my @a=split(/\s+/, $l);
    if(!scalar(@a)) #skip if empty line (should not happen as this point, extra security)
    {
        $nb_skipped++;
        next;
    }
    $v=$a[0];
    my $d=abs($v-$target_val);
    if($d<$delta_abs_min)
    {
        $delta_abs_min=$d;
        $line_delta_min=$l;
    }
    $nb_lines++;
}
 
printf("nearest: %s (diff %02.1f%%) (%d lines checked, %d lines skipped)\n", $line_delta_min, 100*$delta_abs_min/$target_val, $nb_lines, $nb_skipped);

 
 
     
        TITRE [UNITE]        
-------------------------------------------  
 
    T-col1   T-col2   T-col3   T-col4   T-col5   T-col6   T-col7   T-col8
   94.9     51.2     39.3     61.1     39.3     55.7     37.6  
    97.4     51.9     39.6     62.2     39.6     56.4     37.8    
    99.8     52.6     39.9     63.4     39.9     57.1     38.0    
   102.3     53.4     40.1     64.5     40.1     57.8     38.3  
   104.8     54.1     40.4     65.7     40.4     58.5     38.5  
   107.2     54.9     40.7     66.8     40.7     59.2     38.7  
   109.7     55.6     41.0     67.9     41.0     59.9     39.0  

target value is 100
nearest: 99.8     52.6     39.9     63.4     39.9     57.1     38.0     (diff 0.2%) (7 lines checked, 8 lines skipped)

#!/bin/bash
 
valRef=100
numCol=1
fichSrc="$HOME/fichier.txt"
 
maReg='^[[:digit:]]+[.][[:digit:]]$'
 
valRef+="0"
 
while IFS= read -r ligneLue || [ -n "$ligneLue" ]; do
 
    declare -a tablDonnees=( $ligneLue )
    [[ ${#tablDonnees[@]} -lt numCol ]] && continue
 
    for champ in ${tablDonnees[@]}; do
        [[ $champ =~ $maReg ]] || continue 2
    done
 
    (( diff = ${tablDonnees[$numCol-1]/./} - valRef ))
    diff=${diff/-/}
 
    if [[ -z $min ]]; then {
        min=$diff
        ligneMin="$ligneLue"
    }
    elif [[ diff -lt min ]]; then {
        min=$diff
        ligneMin="$ligneLue"
    }
    fi
 
done < "$fichSrc"
 
printf '%s\n' "$ligneMin"

#!/bin/bash
 
# Dans ce script, le format de valRef va déterminer le format des données du fichSrc qui seront prises en compte.
 
# Si les données contenues dans fichSrc avaient trois chiffres après la virgule :
# valRef="100,000"
 
# Si les données contenues dans fichSrc ont un seul chiffre après le point décimal :
valRef="100.0"
 
numCol=1  # Numéro 1 <=> première colonne
fichSrc="$HOME/fichier.txt"
 
declare -a tablDonnees tablLignes
numLi=0 nbDec=0
 
if [[ $valRef =~ [,.] ]]; then
    sepDec=${BASH_REMATCH[0]}
    decim=${valRef#*$sepDec}
    nbDec=${#decim}
    valRef=${valRef/$sepDec/}
fi
 
maReg='^[[:digit:]]+$'
if [[ $nbDec -eq 1 ]]; then
    maReg='^[[:digit:]]+['$sepDec'][[:digit:]]$'
 elif [[ $nbDec -gt 1 ]]; then
    maReg='^[[:digit:]]+['$sepDec'][[:digit:]]{'$nbDec'}$'
fi
 
while IFS= read -r ligneLue || [ -n "$ligneLue" ]; do
    (( numLi++ ))
 
    tablDonnees=( $ligneLue )
    [[ ${#tablDonnees[@]} -lt numCol ]] && continue
 
    for champ in ${tablDonnees[@]}; do
        [[ $champ =~ $maReg ]] || continue 2
    done
 
    (( diff = ${tablDonnees[$numCol-1]/$sepDec/} - valRef ))
    diff=${diff/-/}
 
    if [[ -z $min ]]; then {
        min=$diff
        tablLignes=( "$numLi \"$ligneLue\"" )
    }
    elif [[ diff -lt min ]]; then {
        min=$diff
        tablLignes=( "$numLi \"$ligneLue\"" )
    }
    elif [[ diff -eq min ]]; then {
        tablLignes+=( "$numLi \"$ligneLue\"" )
    }
    fi
 
done < "$fichSrc"
 
for li in "${tablLignes[@]}"; do
    li="${li#*\"}"; printf '%s\n' "${li//\"/}"    # Sans le numéro de chaque ligne et sans les guillemets (comme demandé)
    # printf 'N° %s\n' "$li"    # Avec le numéro de chaque ligne et la ligne correspondante entre guillemets
done