#!/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;
The "magic" line here is the sort routine, we use split to create an unnamed temporary array and then the numeric comparison operator ( <=> , also known as the spaceship operator ), to provide a numeric comparison. Perl's sort function is extremely powerful precisely because one of the arguments can be a function, (have a look at perldoc -f sort ).
The method you are trying to use above works for this case, however it depends on the third field being unique to each record.
#!/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);
No it's actually creating an entry using the 3rd field ass a key for the hash and the entire record as the value.
At this point we have slurped the entire file into an array and because we are stepping through the array ( for (@array){ ) the default variable $_ is the entire record.
If the record matches the pattern in the regex the first capturing parenthesis matches the third field and so the third field is stored in $1
We now store the record in the hash with the 3rd field as key.
We retrieve the keys of the hash (field 3) and sort them numerically and process this list in the provided order. For each key we then print the value which is the stored record.
As I said above this method depends on the 3rd field being unique to each record. You could modify it to use the extracted 3rd field as a value and the record as a key ( $link_strength{$_}=$1 if /(?:[^|]+\|){2}([^|]+)/; this would mean that each record would have to be unique but the link strengths could be the same in several records.) then cycle through the hash with a sort function in place, something like ( for (sort {$link_strength{$a} <=> $link_strength{$b}} keys %link_strength){
Can you please please let me know how to read the array from file ........
actually after sorting the data in two file there is need of file comparison
So the array needs to be stored in to files before comparing....
I have tried with below but its not working
open my $fh1, '<', @sorted or die "Can't open $file1: $!";
print $fh3;
You guys helped me a lot!!!!thanks a ton for that!!!!!!!!!
What I am trying here is to copy a sorted array to a file .then compare it to another file
My objective here is I have to compare two hugeeeeee file ,so I want to sort them first and then trying to compare them (Will it optimize the search)
So already you guys showed me how to sort the input file to array .....so I have to copy the array to a file and then have to compare or can I compare two array directly
Please find the attached script for file comparison
In the while loop is it possible to pass the arrat instead of file
