[Perl] Clasificaciones

[Salman PSL]

Ya se que este punto lo hemos tratado en alguna otra ocasion, y de hecho =
he estado leyendo los correos que tenia guardados del 16 y 17 de octubre =
del 2000 pero el caso es que ahora ante un caso practico, no me funciona =
:-(

El fichero:

0002|Galicia|Pontevedra|Vigo|Salvador =
Guzman|Salman|Salman@TerranoII.com|xx|xx|xx|Terrano II|Club Rias =
Baixas|Cabrestante||
0001|Catalunya|Barcelona|Barcelona|Federico =
Garcia|Fede|xx|xxx|xxx|xxx|Terrano II|-|Nave estelar||
0007|Ceuta|Ceuta|Ceuta|prueba =
5|prueba|prueba|prueba|prueba|prueba|prueba|prueba|prueba||
0006|Principado de Asturias|Asturias|Oviedo|prueba =
4|prueba|prueba|prueba|prueba|prueba|prueba|prueba|prueba||
0005|Cantabria|Cantabria|Santender|Prueba =
3|prueba|prueba|prueba|prueba|prueba|prueba|prueba|prueba||
0003|Arag=F3n|Huesca|prueba|prueba|prueba|prueba|prueba|prueba|prueba|pru=
eba|prueba|prueba||


La instruccion:

@ordenado =3D sort {($a =3D~ /(.*)\|(.*)/)[1] cmp ($b =3D~ =
/(.*)\|(.*)/)[1]} @desordenado;

Quiero ordenar el fichero alfabeticamente sin tener en cuenta el primer =
campo que es un codigo unico de identificacion y que puede ser =
alfanumerico.

=BF Que estoy haciendo mal ? :-(



Saludos
Salvador Guzm=E1n
Salman PSL
Vigo, Galicia, Espa=F1a
+34 986-21.30.27
M=F3vil  679-Salman
Correo@Salman.ES
http://salman.net/
http://apedra.com/