Organizacion de un arreglo por un campo?

[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__