Ahora bien, sé que una forma de ordenar es:
Using perl Syntax Highlighting
while($renglon=<EMPRESAS>){
chop $renglon;
@matriz=split("\t",$renglon);
$x=0;
foreach $item (@campos){
$$item=$matriz[$x];
$x++;
push (@desorden,"$matriz[1]\¨$renglon");
}
#Condicionales
}
chop $renglon;
@matriz=split("\t",$renglon);
$x=0;
foreach $item (@campos){
$$item=$matriz[$x];
$x++;
push (@desorden,"$matriz[1]\¨$renglon");
}
#Condicionales
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
o en todo caso:
Using perl Syntax Highlighting
push(@desord,$cod);
@empresas=sort(@desord);
foreach $item (@empresas){
print "<option value=\"$item\">\u$item</option>\n";
}
@empresas=sort(@desord);
foreach $item (@empresas){
print "<option value=\"$item\">\u$item</option>\n";
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Ahora bien, ¿existe otra forma de ordenar?
