[B] pregunta tipo Perl rápida [/ B]

zx1106 · #1 (**Enlace permanente**) 10-09-2008

He hecho un rápida de Google acerca de esto, pero no pudo encontrar la respuesta que yo quiero.

Decir, hay una serie como esta:
@ A \u003d qw (CD1 A1 EF A2 hij A12 B2 B4 B22);

Quiero ordenar la matriz en el primer orden:
@ ordenados \u003d qw (A1 A12 A2 B2 B22 B4 CD1 hij EF);

Y de segundo orden:
@ ordenados \u003d qw (A1 A2 A12 B2 B4 B22 CD1 hij EF);

¿Hay una manera de hacer esto en Perl sin necesidad de utilizar los módulos?

¡Muchas gracias!

Jim McNamara · #2 (**Enlace permanente**) 10-09-2008

¿Considera que la función ordenar un módulo?

Código:

@sorted=sort(@A);

zx1106 · #3 (**Enlace permanente**) 10-09-2008

Gracias! Trabaja para el primer pedido.

zx1106 · #4 (**Enlace permanente**) 10-09-2008

¿Y los de segundo orden:
qw (A1 A2 A12 B2 B4 B22 CD1 hij EF);
Gracias!

cbkihong · #5 (**Enlace permanente**) 10-09-2008

Sí, se puede ordenar con una regla personalizada. Pero, ¿qué es la regla para la clase? Si usted no puede encontrar una especificación formal de la clase, nadie será capaz de hacerlo "correctamente".

A continuación se da el mismo orden, como usted ha mencionado, pero no hay garantía de que va a darle la "correcta" de orden (como era de esperar) para otros valores de insumos:

Código:

use Data::Dumper;

@A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);
print Dumper([sort {
	my ($_a, $_b);
	for ([$a, \$_a], [$b, \$_b]) {
		$_->[0] =~ /^(.+?)(\d*)$/;
		${$_->[1]} = [$1, $2];
	}
	($$_a[0] cmp $$_b[0]) || ($$_a[1] <=> $$_b[1]);
} @A]);

KevinADC · #6 (**Enlace permanente**) 10-10-2008

De segundo orden que aparece a primera clase por alfa luego de dos dígitos:

Código:

my @A = qw(cd1 a1 ef a2 hij a12 b2 b4 b22);

my @sorted = map{$_->[2]}
          sort{$a->[0] cmp $b->[0] || $a->[1] <=> $b->[1]}
          map{/([a-z]*)(\d*)/;[$1,$2,$_]} @A;

print "$_\n" for @sorted;

Google "Schwartzian Transformar" si esta interesado en la técnica de la caché la clave de ordenación.

Más UNIX y Linux Foro Temas usted puede encontrar útiles
Hilo	Hilo para principiantes	Foro	Respuestas	Último mensaje
sed pregunta rápida	vbm	Programación de scripts de shell y	2	11-09-2006 10:44 PM
Ok pregunta rápida	Corrail	Programación de scripts de shell y	1	11-11-2005 01:49 PM
Perl pregunta rápida	jason_v	Programación de scripts de shell y	7	11-26-2003 04:31 AM
Pregunta rápida	catbad	UNIX for Dummies Preguntas y Respuestas	7	03-25-2003 07:01 PM
Pregunta rápida	Tracy Hunt	UNIX for Dummies Preguntas y Respuestas	3	02-20-2001 04:20 PM

Herramientas de hilo	Buscar en este Hilo
Mostrar Versión para imprimir Enviar esta página	Buscar en este Hilo: Búsqueda avanzada
Modos de visualización	Vota a este hilo
Cambiar a modo lineal Modo híbrido Cambiar a modo de línea	Vota a este hilo:


	Powered by