[SOLVED] How to sort lines from left to right?

jv61 · 09-17-2013, 08:37 AM

Hello everyone,

I have a file which looks like this

Code:

c1       2:2     3:1     1:1     4:2
c2       3:2     1:1     4:1     2:2
c3       2:1     1:0     4:0     3:1

I want to sort each lines from left to right in ascending order from second column onwards. Any advice on how to do that?

My output would look like this:

Code:

c1       1:1   2:2   3:1    4:2
c2       1:1   2:2   3:2    4:1
c3       1:0   2:1   3:1    4:0

Thanks

cbtshare · 09-17-2013, 08:42 AM

have you done anything so far? Show us and we'll help you out.

linosaurusroot · 09-17-2013, 08:47 AM

Code:

#!/usr/bin/perl -w

sub cb {
my $aa="";
my $bb="";
if ($a =~ /^(\d+)\D/) {$aa=$1;}
if ($b =~ /^(\d+)\D/) {$bb=$1;}
return ($aa <=> $bb);
}

while (<>) {
    chomp();
    @q=split(/\s+/);
    printf("%s ", $q[0]);
    shift @q;
    printf("%s\n", join(" ", sort cb @q));
}

druuna · 09-17-2013, 08:52 AM

A bash solution:

Code:

#!/bin/bash

while read LINE
do
  echo $LINE | tr "[:blank:]" "\n" | sort -g | tr "\n" "\t"
  echo
done < infile

I'm not sure if those are spaces or tabs separating the fields, adjust "\t" to " " if spaces are used

jv61 · 09-17-2013, 09:07 AM

Quote:

Originally Posted by cbtshare

have you done anything so far? Show us and we'll help you out.

I tried few different options.
First, I tried with perl

Code:

#!/usr/bin/perl -w

use strict;
use warnings;

open(IN,"test")or die;

while(my @INL =<IN>){

my @sorted = sort {$b cmp $a }(@INL);

    print @sorted,"\n";
}

Then I tried to transpose the file and use sort function to sort on multiple fields

Code:

sort -nk 1,1 -nk 2,2 t_test

Both didn't work.

jv61 · 09-17-2013, 09:18 AM

Quote:

Originally Posted by linosaurusroot

Code:

#!/usr/bin/perl -w

sub cb {
my $aa="";
my $bb="";
if ($a =~ /^(\d+)\D/) {$aa=$1;}
if ($b =~ /^(\d+)\D/) {$bb=$1;}
return ($aa <=> $bb);
}

while (<>) {
    chomp();
    @q=split(/\s+/);
    printf("%s ", $q[0]);
    shift @q;
    printf("%s\n", join(" ", sort cb @q));
}

Thank you, that gives me desired results. Could you please explain the code a bit,that will help me to have a better understanding. Thanks again

jv61 · 09-17-2013, 09:22 AM

Quote:

Originally Posted by druuna

A bash solution:

Code:

#!/bin/bash

while read LINE
do
  echo $LINE | tr "[:blank:]" "\n" | sort -g | tr "\n" "\t"
  echo
done < infile

I'm not sure if those are spaces or tabs separating the fields, adjust "\t" to " " if spaces are used

Awesome,thank you.

linosaurusroot · 09-17-2013, 09:41 AM

If $a starts with numbers and then becomes something else set $aa to just the numbers.

Code:

if ($a =~ /^(\d+)\D/) {$aa=$1;}

That means data 1:0 9:0 10:0 will sort numerically into that order. Otherwise you might get 10 before 9 because 1 is before 9.

If you wanted you could try with http://en.wikipedia.org/wiki/Schwartzian_transform

jv61 · 09-17-2013, 12:51 PM

Quote:

Originally Posted by linosaurusroot

If $a starts with numbers and then becomes something else set $aa to just the numbers.

Code:

if ($a =~ /^(\d+)\D/) {$aa=$1;}

That means data 1:0 9:0 10:0 will sort numerically into that order. Otherwise you might get 10 before 9 because 1 is before 9.

If you wanted you could try with http://en.wikipedia.org/wiki/Schwartzian_transform

Thanks very much. I will look into that