[Perl] - Sort y Matrices

[Jose Antonio Galicia]

On Fri, 24 Aug 2001, Joel Mu=F1oz wrote:

> nombre|apellido paterno|apellido
> materno|rectoria|direccion|departamento|email|telefono|ext|

> Y necesito ordenarla de acuerdo a rectoria, luego direccion, luego
> departamento y por ultimo apellidos y nombre

 Se me ocurre as=ED de r=E1pido que:

	while (<>) {
		split;
		$linea=3D$_
		$llave=3Dsprintf("%-15s%-30s", $_[], $_[]);
		$arreglo{$llave}=3D$linea;
	}
	foreach $llave (sort (keys %arreglo) ) {
		print "$llave =3D ".$arreglo[$llave]."\n";
	}

 Ya t=FA pondras los campos que necesites solo recuerda dejar
los espacios necesarios para que esten alineados los campos
en la llave.

--=20
 Saludos,
 To=F1o.