Organizacion de un arreglo por un campo?

[charlygarcia]

Hola a todos
Muy agradecido por todo lo que me ayudan y enseñan

Tengo una duda

Tengo un archivo de la siguiente manera

1::carlos::10000::NULL::
2::pedro::20000::NULL::
3::marcos::210000::NULL::
4::david::1000::NULL::
5::Michael::150000::NULL::
6::George::17200::NULL::
7::Javier::18000::NULL::

Necesito mostrarlos en una tabla HTML, pero necesito que salgan ordenados por la tercer columna de menor a mayor, mejor dicho deberia quedar asi:


4::david::1000::NULL::
1::carlos::10000::NULL::
6::George::17200::NULL::
7::Javier::18000::NULL::
2::pedro::20000::NULL::
5::Michael::150000::NULL::
3::marcos::210000::NULL::

con sql seria facil, pero usando archivos planos y teniendo en cuenta que el valor de la tercer columna se guarda como texto como lo deberia hacer ???

muchas gracias por la colaboracion:

[jferrero]

Usando una transformada de Schwartz ( http://en.wikipedia.org/wiki/Schwartzian_transform ):

Código:

#!/usr/bin/perl
use strict;

my @fichero = qw(
    1::carlos::10000::NULL::
    2::pedro::20000::NULL::
    3::marcos::210000::NULL::
    4::david::1000::NULL::
    5::Michael::150000::NULL::
    6::George::17200::NULL::
    7::Javier::18000::NULL::
);

my @ordenado =
    map  { $_->[0]                 }
    sort { $a->[1] <=> $b->[1]     }
    map  { [ $_, (split '::')[2] ] }
    @fichero;

print "$_\n" for @ordenado;

__END__

[charlygarcia]

gracias por la ayuda

la trasnformada es muy buena y la estoy usando bien, muchisisisisimas gracias jferrero
pero esta pregunta se debe a que una cosa es la organizacion por cadena y otra como numero,

Pues 10 es menor que 100 en numeros pero no sabria si "10" es menor que "100" y yo necesito organizar la salida del arreglo por el valor numerico
algo asi como

select * from tabla order by sueldo; //del sql

Esto funcionaria con perl ?

Muchas gracias por la ayuda.

Carlos

[jferrero]

Si quieres hacer una ordenación alfabética, en lugar de numérica, cambia '<=>' por 'cmp'.