 Mar Oct 16, 2007 10:31 am
|
 |
mydaboin
Perlero Nuevo
|
Registrado: 22 Abr 2004
Mensajes: 59
Ubicación: Pues Aqui, Preguntando
|
|
| Ordenar archivos |
 |
|
Necesito que me den algún tip especial para mostrar archivos ordenados por una determinada constante ($codigo), el caso es que sé cómo ordenar para que el usuario escoja el área a elegir, o por grupo de datos, el problema radica en las noticias donde la forma de visualizar ¡es diferente!
Ahora bien, sé que una forma de ordenar es:
| Perl: | while($renglon= <EMPRESAS>){
chop $renglon;
@matriz= split("\t", $renglon);
$x= 0;
foreach $item (@campos){
$ $item= $matriz[$x];
$x++;
push (@desorden, "$matriz[1]\¨$renglon");
}
#Condicionales
} |
o en todo caso:
| Perl: | push(@desord, $cod);
@empresas= sort(@desord);
foreach $item (@empresas){
print "<option value=\"$item\">\u$item</option>\n";
} |
Ahora bien, ¿existe otra forma de ordenar? |
|
|
|
|
Mar Oct 16, 2007 11:07 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4104
Ubicación: Valladolid, España
|
|
|
|
|
Algo como esto:
| Perl: | sort { $a-> [$codigo] <=> $b-> [$codigo] } @lineas; |
siendo @lineas todas las líneas a ordenar, y en cada una de ellas es una referencia a un array con los campos de la línea leída.
Cambiar '<=>' por 'cmp' si queremos comparar cadenas de caracteres en lugar de cantidades. |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
