Shell Programming and Scripting

 
9924873|20111114|00000000000013013|130|13|10/15/2010 12:36:22|W860944|N|00
9924873|20111114|00000000000013009|130|09|10/15/2010 12:36:22|W860944|N|00
9924873|20111114|00000000000029207|292|07|05/29/2001 10:35:32|DADS_JAMESA|N|00

 
9924873|20111114|00000000000013009|130|09|10/15/2010 12:36:22|W860944|N|00
9924873|20111114|00000000000013013|130|13|10/15/2010 12:36:22|W860944|N|00
9924873|20111114|00000000000029207|292|07|05/29/2001 10:35:32|DADS_JAMESA|N|00

 
#!/usr/bin/env perl
use strict;
use warnings;
my %link_strengths;
while (<>) {
chomp;
my @rec = split /\|/; 
my $key = $rec[2]; 
# my ($link, $strength) = split /\s+/;
$link_strengths{$key} = $_;
}
my @sorted = sort {
$link_strengths{$a} <=> $link_strengths{$b}
} keys %link_strengths;
for my $link (@sorted) {
print "$link: $link_strengths{$link}\n";
}

$ sort -t\| +2n < infile

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

open (my $data , '<', $ARGV[0])|| die "could not open $ARGV[0]:\n$!";
my @array=(<$data>);
my @sorted=sort {(split(/\|/,$a))[2]<=>(split(/\|/,$b))[2]} @array;
print @sorted;

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

my (%link_strength);
open (my $data , '<', $ARGV[0])|| die "could not open $ARGV[0]:\n$!";
my @array=(<$data>);
for (@array){
    $link_strength{$1}=$_  if /(?:[^|]+\|){2}([^|]+)/;
}
print $link_strength{$_} for (sort {$a<=>$b} keys %link_strength);