🚀 go-pugleaf

In uch.ing.dcc VASQUEZ MORALES MAURICIO ANDRES <mvasquez@anakena.dcc.uchile.cl> wrote:
> In uch.ing.dcc Jens Hardings Perl <jharding@dcc.uchile.cl> wrote:
> : VASQUEZ MORALES MAURICIO ANDRES wrote:
> :> Hola ... queria preguntar si alguien conocia algun comando
> :> unix o funcion (C o Perl) para desordenar un archivo (desordenar
> :> un arreglo tambien sirve) ya que con archivos de miles de lineas
> :> y con random, los tiempos se me van a las nubes ....
> : Alguna tarea de mechones con un quicksort mal implementado? ;-)
>   No ... pa' na .... tengo que hacer una publicidad aleatoria pero que
>   se garantice que salga una vez cada aviso .... 
>   En todo caso se me han ocurrido ideas de como optimizarlo (
>   desordenando de a pedazos y luego uniendo) pero la idea era de si habia
>   algun comando .... :( 
Aqui lo hice en perl, mas de una vez lo necesite, asi que aqui va:

Lee un archivo y lo desordena por lineas. Aqui estan los benchmarks:
los archivos tienen 10mil, 100mil o 1millon de lineas. (cada linea cuenta
desde 0 hasta N).

2:06pm [agm@cipres:~/bin/]% set time
2:06pm [agm@cipres:~/bin/]% ./desordename 10mil 10mil2
0.48u 0.02s 0:00.58 86.2%
2:07pm [agm@cipres:~/bin/]% ./desordename 100mil 100mil2
28.12u 0.19s 0:35.28 80.2%
2:07pm [agm@cipres:~/bin/]% ./desordename 1millon 1millon2
[me aburri, son las 2:25pm]

Este ultimo ocupo 45MB de RAM, segun top.

Entonces, lo que puedes hacer es poner a cada tipo en un archivo y lo
desordenas. Luego, lees el primero, el 2do .. etc, sin desordenar el archivo
a cada rato (para asegurar que a todos le toque su turno). Si llega alguien
nuevo, lo pones al principio o al final; no tienes para que re-desordenar
todo cada vez que agregas uno nuevo.

---desordename---ini---
#!/usr/bin/perl
# desordename
# Copyright(c) 1999
# Aldrin Martoq A.

sub println
  {	print $_[0]. "\n";  }

if ($#ARGV < 0 or $#ARGV > 1)
  {	println "Uso:\n\t$0 <archivo_entrada> [archivo_salida]";
	exit 0;
  }

open(ENTRADA, $ARGV[0]) or die "$ARGV[0] no se puede leer: $!";

if ($#ARGV == 1)
  {	open(SALIDA, "> $ARGV[1]") or die "$ARGV[1] no se puede escribir: $!";  }
else
  {	open(SALIDA, ">&STDOUT");  }

while(<ENTRADA>)
  {	push @DATOS, $_;  }

while ($#DATOS >= 0)
  {	$r = int(rand($#DATOS));
	print SALIDA $DATOS[$r];
	splice(@DATOS,$r,1);
  }
---desordename---fin---



Para crear los numeros del benchmark:
---a---ini---
#!/usr/bin/perl

for ($i=0; $i<$ARGV[0]; $i++)
  {	print $i. "\n";  }
---a---fin---
2:16pm [agm@cipres:~/bin/]% ./a 10000 > 10mil
2:16pm [agm@cipres:~/bin/]% ./a 100000 > 100mil
2:16pm [agm@cipres:~/bin/]% ./a 1000000 > 1millon


-- 
Aldrin.
Area de Ingenieria
CEC U.Chile