[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: METODO DE ORDENMIENTO (AWK, SORT, O LO QUE SEA)



Hola,

> Haber si alguien me puede ayudar, tengo un archivo de texto que necesito
> ordenar, el tema es que no me doy cuenta como:
> El file consta de la siguiente estructura:
>
> PABLO MARTIN ALVERTE
> DNI: 288711627
> TEL: 323232323
>
> LUIS ARMANDO SORES
> DNI: 23232333
> TEL: 123123123
>
> Y asi sucesivamente, osea que son dos tres lineas por registro, y cada
> registro esta separado por un espacio en blanco.

Puedes utilizar Perl (entre muchas otras opciones, supongo). Una solución
rapidita que se me ocurre es:

------------------------------------------------------
#!/usr/bin/perl

# Metes todo el fichero en la variable $_
undef($/);
$_ = <STDIN>;

# Separas los registros: $reg[0] contiene el primero, $reg[1] el
# segundo...
@registros = split/\n\n/;

# Ordenas los registros
@sorted = sort @registros;

# Lo unes todo de nuevo
$todos = join("\n", @sorted);
print "$todos\n";
---------------------------------------------

Seguro que se puede mejorar, pero insisto en que es una solución rápida
sin pensarlo demasiado (que a estas horas ya no me da para mucho)... :)
A mí me sale:

merlin:~$ ./prueba_sort < muestra.txt
LUIS ARMANDO SORES
DNI: 23232333
TEL: 123123123

PABLO MARTIN ALVERTE
DNI: 288711627
TEL: 323232323

Espero que te sirva.
Saludos,
Susana.
---------------------------------------------------------------------
Susana Sotelo Docío         http://www.linghoo.com/de/sdocio
Facultade de Filoloxía                 sdocio-en-linghoo.com   _o)
Universidade de Santiago de Compostela                         / \\
"La gloria no está en no caer nunca sino en levantarnos      _(___V
cada vez que caemos" -- Confucio                             #96506
---------------------------------------------------------------------
   Fingerprint: CB43 06DA BEC9 8F06 D001  DA5E E3AA 1695 E910 7C4D
---------------------------------------------------------------------

SunOS uscmail 5.7 Generic_106541-05 sun4u sparc SUNW,Ultra-Enterprise
  5:32pm  en funcionamiento 58 día(s),  9:50,  18 users



Reply to: