Re^2: Sorting a matrix based on the values of columns

Hello @redbull2012, Thank you for much for teaching me how to loop through each row and columns of the matrix and compare them. I took your code and modified it a little bit as follows. Let me know what you think about this or if you see any problems with the code ? Atleast during my testing it appears to be working fine.

#!/usr/bin/perl
use v5.10;
use strict;
use warnings;

# This script will arrange the rows and columns of a matrix in the sor
+ted order :-)

my @row;

while(my $line = <DATA>)
{
   push @row, [split(/\s+/,$line)];
}

foreach my $r1 (0 .. $#row)
{
    #Take 1 row as base, check other rows
    my @remain = grep !/$r1/,(0 .. $#row);
    foreach my $r2 (0..$#remain)
      {
       # Now loop through the columns of each rows and compare when co
+lumns are same.
       foreach my $c1 (0..$#{$row[$r1]})
          {
                 foreach my $c2 (0..$#{$row[$r2]})
                 {

                    if ($c1==$c2) # Make sure we are swapping values o
+n the same column not across the columns if needed
                       {
                        if ($row[$r1][$c1] < $row[$r2][$c2])
                           {
                            my $temp=$row[$r1][$c1];
                            $row[$r1][$c1]=$row[$r2][$c2];
                            $row[$r2][$c2]=$temp;
                           }
                        }
                 }
            }
      }
}

map {print "@$_\n"} @row;
#SUPPORT FUNCTION

__DATA__
1014    1       10
1015    51      100
1016    11      50
1017    101     999
[download]

Comment on Re^2: Sorting a matrix based on the values of columns Download Code

Replies are listed 'Best First'.
Re^3: Sorting a matrix based on the values of columns by redbull2012 (Sexton) on Mar 18, 2016 at 10:16 UTC
Hello raghuprasad241, I have a different approach for you. Previously, due to some hole in your input data that i have to go through all the trouble to make that big code. Now you have a much nicer input so we can make it look like this. #!/usr/bin/perl use v5.10; use strict; use warnings; sub tranpose(@); my @row; my @sorted; while(my $line = <DATA>) { push @row, [split(/\s+/,$line)]; } @sorted = map { my $in = $_; [map {sprintf("%6s",$_)} @$in]; } #Reformat before prin +t tranpose #tranpose back to ori +ginal form map {[sort {$a <=> $b} @$_]} #sort each column tranpose @row; map {print @$_,"\n"} @sorted; sub tranpose(@) { my @out; foreach my $j (0..$#{$_[0]}) { push @out, [map {$_[$_][$j]} (0..$#_)]; } @out; } __DATA__ 1014 1 10 1015 51 100 1016 11 50 1017 101 999 [download] Output: `1014 1 10 1015 11 50 1016 51 100 1017 101 999` [download] Hope this help!	[reply] [d/l] [select]
Re^4: Sorting a matrix based on the values of columns by raghuprasad241 (Beadle) on Mar 18, 2016 at 14:53 UTC
redbull2012, simply beautiful code :-) Thank you very much. Learned a lot. Regards Raghu!	[reply]