Shell Programming and Scripting

 
perl -ne 'chomp ; push(@a,"$_ at line  $."); END{ print  "",(sort { $a <=> $b } @a)[0]; }' file

 awk 'END { 
  print v, "on line", nr
  }
{
  NR == 1 && min = $1 
  if ($1 <= min) {
    v = $1; nr = NR
    }
  }' infile

# cat infile
94.971
101.468
73.120
73.090
73.090
73.090
73.070
73.650
100.601
102.329

 
# ./smallest infile
At line 7 -> Small Value is :  73.070

#!/bin/bash
# Smalletst Finder ygemici
i=0
 while read -r lin ;
   do
     myarray[i]=${lin} ; ((i++))
   done < $1
  mynew=`echo $(echo "${myarray[0]} * 1000" | bc) | sed 's/\.0*//g'`
 
first=0
i=1
   for mycheck in ${myarray[@]}
     do
       mychk=`echo $(echo "${mycheck} * 1000" | bc) | sed 's/\.0*//g'`
     if [ $mynew -ne $mychk ] ; then
        if [ $mynew -gt $mychk ] ; then
           ((first++))
            if (( $first == 1 )) ; then
               smallval[i]=$mychk
            fi
          if (( $first > 1 )) ; then
             if [ ${smallval[i]} -gt $mychk ] ; then
                ((i++))
                smallval[i]=$mychk
                smallval[i-1]=""
             fi
          fi
        fi
     fi
     done
echo "At line" $(sed -n "/$(echo ${smallval[@]}|sed 's:\(...\)$:\.\1:')/=" $1)  "->" "Small Value is : " "$(echo ${smallval[@]} | sed 's/\(...\)$/\.\1/')"