About ordering data

[Alfio75]

Hello guys. Does anybody know how to order ascendent a list of data?
What i mean is that i got 3 columns of data. What i need is to order them with respect to the first one, but i need all the 2 next colums get order at the same time that one.

Example

1 5 4
4 8 9
10 15 4
1 5 8
2 7 9

so after the ordering i wanna get those in the next way:

1 5 4
1 5 8
2 7 9
4 8 9
10 15 4
^
|
|
column that was ordered.

 

[TrojanWarBlade]

How is the data stored?
In strings or arrays?

Trojan.


Trojan.

 

[Alfio75]

i got all those data in a file, so i think i could read those and order them.

 

[KevinADC]

assuming it's a text file with spaces between the numbers, a Schwartzian transform will do:

open(FH,'<file.txt') or die "$!";
my @sorted = map {$_->[0]}
             sort {$a->[1] <=> $b->[1] ||
                   $a->[2] <=> $b->[2] ||
                   $a->[3] <=> $b->[3]
             } map {chomp; [$_,split/\s+/]} <DATA>;
close(FH);
print map {"$_\n"} @sorted;

 

[KevinADC]

I see a typo in my code, this:

<DATA>

needs to be changed to:

<FH>

 

[Alfio75]

That's a nice code Kevin... This is working. The next step is to get it counting for n times it is getting the same X Y Z colums.

example
1 2 3
4 5 6
1 2 3
8 9 10
5 4 3

I wanna get this:
1 2 3
1 2 3
4 5 6
5 4 3
8 9 10

and:
1 2 3 is 2 times found
4 5 6 is 1 time
5 4 3 is 1 time
8 9 10 is 1 time

Thanks in advance