Insertar Perl en una matriz ordenada

Question

Considere el siguiente bloque de datos, ¿cómo puedo mantener ordenado la matriz en el tercer campo y seguir presionando ítems?

$VAR1 = [ 
      '1111', 
      'http://...', 
      3  #this is one of the 3rd field mentioned above 
     ]; 
$VARN = [ 
      '5555', 
      'http://...', 
      0 
     ]; 

Mi código es el siguiente:

my @curItem = ($item->{id}, $item->{href}, getTotal($item->{id})); 
push @items, \@curItem; 

que he encontrado módulo this que es similar a lo que necesito.

Cualquier ayuda apreciada.

Answer 1

Puede utilizar ese módulo, sólo tiene que suministrar el tipo:.

tie @a, "Tie::Array::Sorted", sub { $_[0]->[2] <=> $_[1]->[2] };

(O algo por el estilo ... Voy a tener que comprobarlo Básicamente, es necesario ordenar en función del elemento de la matriz ref que está pasando)

Editar: Sí, esto funciona para sus datos. Acaba de comprobar que:

use Tie::Array::Sorted; 

tie @a, "Tie::Array::Sorted", sub { $_[0]->[2] <=> $_[1]->[2] }; 

push @a, [ "1111", "http:// ...", 3]; 
push @a, [ "5555", "http:// ...", 0]; 

foreach $ref (@a) 
{ 
    print $ref . "\n"; 
    print "@$ref \n"; 
} 

Salidas:

ARRAY(0x9130888) 
5555 http:// ... 0 
ARRAY(0x90dd818) 
1111 http:// ... 3 

Answer 2

Bueno, empujar va a añadir el elemento al final de la lista de no importa qué. Es una operación de pila. Diría que probablemente sería mejor usar una estructura de datos diferente, como un hash y luego solo clasificar por clave o valor cuando sea necesario. Sin más detalles de lo que estás tratando de escribir, es difícil de decir.

De lo contrario, tendrá que escribir una subrutina que busca en la lista el mejor lugar de inserción y luego usa el empalme para insertar el elemento en su lugar. Esto suena más como lo que quiere hacer, pero no estoy seguro de que sea particularmente eficiente, ya que tiene que buscar en la lista el punto de inserción cada vez que quiera agregar un artículo mientras mantiene un orden ordenado.

Answer 3

Si va a añadir más de una referencia a un array de @items, añadir las referencias en primer lugar, a continuación, utilizar un Schwartzian Transformar para realizar una única operación de ordenación:

@items = map $_->[1], sort { $a->[0] <=> $b->[0] } map { [ $_->[2], $_ ] } @items; 

Randal escribió una columna acerca de esto: http://www.stonehenge.com/merlyn/UnixReview/col64.html