Re: [Ayuda] una de shell

[Jose Antonio Galicia <jcgalici en cbbanorte com mx>]

On Fri, 28 Mar 2003, Vladimir Flores wrote:

> > has considerado que, tal vez en esa parte del archivo, no exista una linea
> > con la palabra que buscas ...
>
> Si, por supuesto, también he probado usando las siguientes variantes:

 Ya ponte serio y has un programa :)

 Sale un "esqueleto básico para demonio que se sienta a leer
un log" para el joven de la mesa del rincon. Va sin picante
para que lo condimenten al gusto:

	for (;;) {
	  for ($curpos = tell(GWFILE); <GWFILE>; $curpos = tell(GWFILE)) {
	    # search for some stuff and put it into files
	  }
	  # sleep for a while
	  seek(GWFILE, $curpos, 0);  # seek to where we had been
	}

 Tomado directamente del perlfaq5. Yo, por ejemplo, tengo
algo así:

	perl -e '
	  open F,"/var/log/correo.log";
	  for(;;){
	    print STDERR localtime()."\r";
	    for($i=tell(F);<F>;$i=tell(F)){print if /jcgalici/}
	    sleep 2;
	    seek(F,$i,0)}' > ~jcgalici/mail.log

 Lo del "print STDERR" es para ver como cambia el reloj cada
dos segundos (esto lo controlas con el sleep). Puedes hacer
muuuuuchas cosas desde el shell, pero hay algunas en las que
no te queda otra que agarrar tu lenguaje favorito y hacer un
programita.

 Saludos,
 Toño
---
"This generation may be the one that will face Armageddon."
-- Ronald Reagan, "People" magazine, December 26, 1985

_______________________________________________
Ayuda mailing list
Ayuda en linux org mx
Para salir de la lista: http://mail.linux.org.mx/mailman/listinfo/ayuda/