Foro - Perl en Español

por **explorer** » 2007-04-03 08:33 @398

Tenemos un conjunto de líneas de esta forma:

Código: Seleccionar todo: 09AAAAABBBBBBTT 02BBBBBBAAAAAAA 15BBBBBAAAAAAAA 11AAAAAABBBBBRR

Como se vé, no hay separador de campos.

Hay que hacer un programa que nos ordene las líneas según los campos indicados en la línea de argumentos del programa. Así, por ejemplo,

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl ordenar.pl 2,78,12Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

se refiere a que la ordenación se ha de hacer por dos campos; el primero está desde el carácter 2 hasta el 7 y el segundo, desde el 8 hasta el 12 (las posiciones empiezan en 0).
La salida, con el comando anterior, deberá ser:

Código: Seleccionar todo: 11AAAAAABBBBBRR 09AAAAABBBBBBTT 15BBBBBAAAAAAAA 02BBBBBBAAAAAAA

#!Perl

# Líneas a procesar
chomp(@lineas=<DATA>);
printjoin"\n",@lineas;
print"\n"x2;

# Lista de argumentos
$i=0;
formy$coordenadas(@ARGV){
my($inicio,$final)=splitq{,},$coordenadas;
nextunlessdefined$inicioanddefined$final;

# Lo guardamos en forma inicio,longitud
push@coordenadas,[$inicio,$final-$inicio+ 1 ];

# Aprovechamos para construir las comparaciones
push@comparaciones,"\$a->[$i] cmp \$b->[$i]";
$i++;
}

$comparaciones=join' || ',@comparaciones;

# Transformas las líneas a vectores partidos
my@vlineas;
formy$linea(@lineas){
chomp$linea;
my@partes;

formy$coordenada(@coordenadas){
push@partes,substr($linea,$coordenada->[0],$coordenada->[1]);
}

push@vlineas,[@partes,$linea];
}

# Hacemos la ordenación por medio de una semi-transformada de Schwartz:
# En el bucle anterior hemos hecho el mapeado del conjunto de datos de partida
# a una lista de elementos que son a la vez listas de elementos, que son,
# primero, los subconjuntos de la línea que tenemos que comparar, y seguidos
# por la propio línea.
# El método de ordenación se construyó en el primer bucle, en un escalar. Es
# decir, hemos construído código Perl en función de los argumentos.
# La función sort ejecutará el código que está almacenado en el escalar, por
# medio de eval.
# Finálmente, del array ordenado obtenemos las líneas originales. 
@lineas
=map{$_->[-1]}
sort{eval$comparaciones}
@vlineas;

printjoin"\n",@lineas;
print"\n"x2;

__DATA__

09AAAAABBBBBBTT

02BBBBBBAAAAAAA

15BBBBBAAAAAAAA

11AAAAAABBBBBRRColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sería interesante ver una solución usando el comando unpack, por ejemplo.

Foro - Perl en Español

Ordenar líneas en función de sus campos

Ordenar líneas en función de sus campos

Publicidad

¿Quién está conectado?