Foro - Perl en Español

Me van a Perdonar ustedes si es que Molesto mucho,y en principal Explorer Pero es que estoy haciendo un modulo que pronto publicare aqui y les agradecere mucho, Mi duda ahora es la siguiente

tengo el siguiente array

$datos[0] = "ID||apellido||edad";
$datos[1] = "01||Castro||16";
$datos[2] = "02||Gomez||21";
$datos[2] = "03||Diaz||20";

Pues la idea es que me de un segundo array ordenano por el segundo campo que es nombre de forma alfabetica

$datos_ordenados[0] = "ID||apellido||edad";
$datos_ordenados[1] = "01||Castro||16";
$datos_ordenados[2] = "03||Diaz||20";
$datos_ordenados[2] = "02||Gomez||21";

Tengo algo asi mas o menos

$campos =shift (@datos);
// Como ya se que quiero ordenar por apellidos, y que el segundo campo es el apellido entonces hago esto
($id_n,$apellido_n,$edad_n) = split(/\|\|/, $campos);
cant_reg = @datos;
$i = 1;
foreach $data (@datos){
($id,$apellido,$edad) = split(/\|\|/, $data); # esto seria como decir $datos[i];
($id_temp,$apellido_temp,$edad_temp) = split(/\|\|/, @datos[$i]); # esto seria como decir $datos[i+1] el dato que le sigue
if ($apellido <= $apellido_temp) { #aqui estaria haciendo la comparacion segun el metodo de intercambion si elemento(i) > elemento(i+1)
$temp = $data;
$j = $i-1;
$datos[$j] = $datos[$i];
$datos[$i] = $temp; #acabo de acer el intercambio, y asi continuara leyendo cada uno de los elementos y me los ordena
unshift @datos_ordenados, ($id."||".$apellido."||".$edad); # realmente esto no es que haga nada en si
}else{
push { @datos_ordenados, ($id."||".$apellido."||".$edad); # esto creo que menos
}
$i++;
}
unshift @datos, ($id_n."||".$apellido_n."||".$edad_n);
unshift @datos_ordenados, ($id_n."||".$apellido_n."||".$edad_n);
// Pero les aseguro que tengo algo malo ahi si uso en metodo de intercambio de burbuja que no tengo muy en claro como implementarlo ahi.
De todas manera el algoritmo me haria que @datos se ordenara el solo o eso pretendo, pero si me gustaria que me quedara ordenado en @datos_ordenados segun el campo que yo quiera en este caso use el apellido.

Después de un largo periodo de inactividad en foros... te dejo una pequeña respuesta, tu trabajo sería analizar como funciona, pero es sencillo.

Código: Seleccionar todo

#!/usr/bin/perl

use strict;
use warnings;

sub sort_func {
    return ( split /\|\|/, $_[0] )[1];
}

my @data = qw( ID||apellido||edad
               01||Castro||16
               03||Diaz||20
               02||Gomez||21 );
my @sorted = sort { sort_func( $a )
                      cmp
                    sort_func( $b )
                  } @data[ 1..$#data ];
print @sorted;



Saludos,

Que tal explorer,

La Schwartzian transform generalmente se utiliza para estructuras complejas ( con referencias ) y cuya función para computar la transformación es cara, ya que bueno como podrás observar, genera un poquito de 'overhead' tras las llamadas a map/sort.

Para el problema de danimera puedes llamar directamente la función de comparación dentro del mismo bloque de sort, y así no generar tantas listas, ya que se trata de una lista plana.

Saludos,

#!/usr/bin/perl
No quiero ser empalagoso Perl User ni Explorer,

La solucion de perl User la entiendo mas o menos lo que no entiendo es la comparacion en:

my @sorted = sort { sort_func( $a ) #que es esa $a
cmp # necesito una explicacion de esta funcion
sort_func( $b ) #que es esa $b
} @data[ 1..$#data ]; #esto significa que empieza desde el indice 1??¿?

No quiero molestarles la vida, pero no podria usar ninguna esta solucionesi no la entiendo perfectamente,

con Explorer

@datos_a_ordenar = @datos[ 1 .. $#datos ]; ?? #No entiendo aqui, el escoge a partir del elemento con indice 1

@datos_ordenados =
map { $_->[0] } # Que es la funcion map que hace???¿? sera que ejecuta por cala elemento de la lista las operaciones en el bloque?¿?
sort{ $a->[1] cmp $b->[1] } # Que sucede aqui? entiendo la funcion sort pero no $a->[0]
map { [ $_, (split '||')[1] ] } # Esto lo entiendo bien
@datos_a_ordenar;

unshift @datos_ordenados, $datos[0]; #OK

print join "\n", @datos_ordenados; #OK

SI me pueden explicar estas duditas les agradeceria de lo mejor mejor,, y les mostraria el resultado de tantas de mis preguntaderas en el FORO OK..

explorer escribiste:A mí me da igual... tengo una máquina a quien le sobran megabytes y megaherzios. La seguiré usando sean las estructuras simples o complejas y el método de ordenación supere mi barrera metal de un simple sort.

Y en cuanto a la sobrecarga, estamos con el problema de siempre: intercambiar espacio por cálculos.

En la transformada se hacen 3 comparaciones y 3 llamadas a split, pero en un sort como el tuyo se hacen 3 comparaciones con 6 llamadas a la función sort_func con 6 llamadas a split.

Los números son casi los mismos, pero no escalan igual en cuanto el vector empieza a crecer. En ese caso, lo mejor para la solución de la función sort_func es 'memorizarla' con Memoize. Pero entonces estamos haciendo una ocupación de recursos de memoria, que es lo que la transformada ya hace con sus listas. Otra cosa sería hacer un benchmark, pero ahora no tengo tiempo

Totalmente de acuerdo, las máquinas hoy en día son tan poderosas que reducciones así no importan mucho, pero aunque sea poderosa, siempre hay cambios de un algoritmo a otro, siempre es SIEMPRE, posiblemente en estructuras pequeñas ( dudo mucho que el ejemplo de danimera sea muy enorme ) pues es demasiado trivial.

Pero el diseño de algoritmos "eficientes" si es importante, ahora bien... las operaciones realizadas por la schwartzian transform aparte de las que mencionaste es el uso de map , map genera listas nuevas recuerda.

El punto clave de esta serie de comentarios es pues, destacar cuando una transformada de schwartz es necesaria, en palabras del mismo Randal, que fué lo que cité arriba.

Pero totalmente de acuerdo, eres libre de usar lo que mas te acomode.

Saludos,