Foro - Perl en Español

por **Lor** » 2007-11-10 16:17 @720

Agradecería si me pudiesen explicar cómo puedo lograr el ordenamiento de un arreglo formado por caracteres alfanuméricos donde al ordenar tenga en cuenta SOLO la parte numérica y no el carácter

Código: Seleccionar todo: 100A - 200 - 300 - 210B - 4000 - 220 - 410- 300A - 3100 -

Es decir, obtener:

Código: Seleccionar todo: 100A - 200- 210B - 220 - 300 - 300A - 410 - 3100 - 4000

Este arreglo lo obtengo de una consulta SELECT, son códigos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my(%componentes)=
{
my$ref=$dbh_m->selectall_arrayref(" SELECT cp.id_comp_princ, cp.nombre, ".
" cp.codi_comp_princ".
" FROM componentes_princ cp ".
" WHERE cp.estado = 'A' ".
" ORDER by cp.id_comp_princ");

foreach(@$ref){$componentes{${$_}[0]}=${$_}[2].' )- '.${$_}[1]}
}
my(@componentes)=sort{$componentes{$a}cmp
$componentes{$b}}keys%componentes;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Con el sort NO LOGRO lo que necesito.

¡¡¡ Muchas gracias !!!

my(%componentes)=
{
my$ref=$dbh_m->selectall_arrayref(" SELECT cp.id_comp_princ, cp.nombre, ".
" cp.codi_comp_princ".
" FROM componentes_princ cp ".
" WHERE cp.estado = 'A' ".
" ORDER by cp.id_comp_princ");

foreach(@$ref){$componentes{${$_}[0]}=${$_}[2].' )- '.${$_}[1]}
}
my(@componentes)=sort{$componentes{$a}<=>
$componentes{$b}}keys%componentes;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Lor** » 2007-11-11 09:06 @421

MUCHAS GRACIAS, ya detecte el ERROR, estaba en el paréntesis de concatenación, por alguna causa tira error, lo saqué y funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my(%componentes)=
{
my$ref=$dbh_m->selectall_arrayref(" SELECT cp.id_comp_princ, cp.nombre, ".
" cp.codi_comp_princ".
" FROM componentes_princ cp ".
" WHERE cp.estado = 'A' ".
" ORDER by cp.id_comp_princ");

foreach(@$ref){$componentes{${$_}[0]}=${$_}[2].' )- '.${$_}[1]}
}
my(@componentes)=sort{$componentes{$a}<=>
$componentes{$b}}keys%componentesColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Ordenación de un arreglo alfanumérico

Ordenación de un arreglo alfanumérico

Publicidad

continua Error

¿Quién está conectado?