Shell Programming and Scripting

123 45.34
345 67.22
949-xx 36.55
123-xx 94.23
888 22.33
345-xx 32.56

123 45.34
949 36.55
888 22.33
345 32.56

awk -F'.' '
        {
                sub (/-[^ ]*/, X, $1)
                T = $0
                F = $0
                gsub (/^[^ ]* |\..*/, X, T)
                sub (/[ ].*/, X, F)
                if ( F in A )
                {
                        if ( A[F] > T )
                        {
                                A[F] = T
                                R[F] = $0
                        }
                }
                else
                {
                        A[F] = T
                        R[F] = $0
                }
        }
        END {
                for ( k in R  )
                        print R[k]
        }
' OFS='.' file

awk -F "[- ]" '{A[$1]=A[$1] && A[$1] < $NF ? A[$1] : $NF}
                END{for(i in A){print i,A[i]}}'  file

#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = "$cur_dir/$ARGV[0]";
my ($record,@fields,$prefix,%peers,$key,%records);

open(FILEIN,"<$filename") or die"open: $!";
while( defined( $record = <FILEIN> ) ) {
  chomp $record;

  @fields=split(/ /,$record);
  $prefix=substr($fields[0],0,3);

  if(! exists( $peers{$prefix} ) || $fields[1] < $peers{$prefix} ) {
    $peers{$prefix} = $fields[1];
    $records{$prefix} = $record;
  }
}
close(FILEIN);

foreach my $key (sort keys(%records)) {
   print "$records{$key}\n";
}

%./file031.pl file031
123 45.34
345-xx 32.56
888 22.33
949-xx 36.55

my $filename = "$cur_dir/zzz";   ):

123 45.34
345-xx 32.56
888 22.33
949-xx 36.55

awk '{i=$1+0} !(i in A) || $2<A[i] {A[i]=$2; S[i]=$0} END{for(i in S){print S[i]}}' file

888 22.33
345-xx 32.56
123 45.34
949-xx 36.55

123 45.34
345 67.22
345 27.01
949-xx 36.55
123-xx 94.23
888 22.33
345-xx 32.56

#!/usr/bin/perl -w
use strict;

my $cur_dir = $ENV{PWD};
my $filename = "$cur_dir/$ARGV[0]";
my ($record,@fields,$prefix,%peers,$key,%records);

open(FILEIN,"<$filename") or die"open: $!";
while( defined( $record = <FILEIN> ) ) {
  chomp $record;

  @fields=split(/ /,$record);
  $prefix=substr($fields[0],0,3);

  if(! exists( $peers{$prefix} ) || $fields[1] < $peers{$prefix} ) {
    $peers{$prefix} = $fields[1];
    $records{$prefix} = $record;
  }
}
close(FILEIN);

foreach my $key (sort keys(%records)) {
   print "$records{$key}\n";
}

$ ./test.pl file
123 45.34
345 27.01
888 22.33
949-xx 36.55