[perl] De parte de Cesar Olivares

[Gunnar Wolf]

Por alguna razon, Cesar Olivares tuvo problemas enviando este mensaje. Se
los paso al costo.

-------------------------------------------------------------------
           Gunnar Wolf    gwolf@campus.iztacala.unam.mx
     Universidad Nacional Autónoma de México, Campus Iztacala
   Jefatura de Sección de Desarrollo y Admon. de Sistemas en Red
        Area de Seguridad en Computo - DCI - DGSCA - UNAM
-------------------------------------------------------------------
  Beginner thinks 1Kb == 1000 bytes.   Master knows 1Km == 1024m

---------- Forwarded message ----------

Razita, pues aqui estoy ya un poco mas involucrado con PERL gracias a las
buenas sugerencias de todos Ustedes. Y pues bueno, entre practicar y hacer
un poco para la permanencia de programador estoy aqui batallando con una
parte medular de un programa que intento llevar en PERL/Tk.
Se trata de destribuir informacion de un archivo texto (base de datos si lo
quieren ver asi) en una ventana grafica, lo que por el momento tengo es una
funcion que a groso modo dice asi:

sub showinfo() {
  my $log_file = "/un/archivo/log";
  open (FILEHANDLE, $log_file) || die "cannot open file $!";
  my $MW =  MainWindows->new();
  my $text = $MW->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid
true
                    -height 30 -scrollbars e/);
  $text->pack(qw/-expand yes -fill both/);
  while (<FILEHANDLE>) {
      $text->insert( '0.0', $_ );
  MainLoop();
} # end sub ...

No piensen que soy muy ducho, me fusilo partes de otros programas y lo estoy
adecuando al mio, asi es que no se dejen apantallar.

Esto lo que en terminos generales hara es ponder en una ventana grafica el
contenido del archivo (todas sus lineas previamente almacenadas en memoria),
pero el problema es que estos llegarian a crecer en su momento a razon de 20
a 80 MBytes cada uno, por lo que seria insostenible este metodo.
?Alguien me puede sugerir alguna forma mas limpia/depurada para que en cada
"press any key ... " la funcion lea la siguiente linea del archivo y muestre
en esa ventana grafica activa el contenido del registro actual (distribuido
como en la consulta de info a una base de datos) y asi darle mejor
presentacion?
Por ahi vi algo de 'tie' (tying filehandles) pero no caCto como deba
construir con esa funcion lo que necesito.
Raza, se les agradecera ya desde ahorita cualquier ayuda, opinion,
sugerencia o igonoro, al respecto ;-)

  --Salu2,
    C. Olivares. EL BATO

p.d. Disculpen que haya usado algunas expresiones en ingles, pero el
programa debe ser orientado a una persona de habla inglesa, yo que tanto
defiendo el ESPANOL.



-----Original Message-----
From: Gunnar Wolf [mailto:gwolf@campus.iztacala.unam.mx]
Sent: Thursday, July 20, 2000 4:46 PM
To: Olivares, Cesar (CORP, Consultant)
Subject: RE: FW: BOUNCE perl@tlali.iztacala.unam.mx: Admin request of
type /^sub\b/i at line 9 (fwd)


Y te doy mas lata... Habrase visto tama&a insolencia - Como fue que
pusiste este mensaje? No tengo instalado un MIME decoder para hacerlo a
pata :-/ Me lo mandarias en texto?

> Caray!, jamas habia tenido tanto problema para poder enviar un solo
mensaje.
> Espero que ahora si llegue como tal; va en archivo anexo.
> 
> Disculpa por la molestia Gunnar.
> Saludos,
> Cesar Olivares
> 
> -----Original Message-----
> From: Gunnar Wolf [mailto:gwolf@campus.iztacala.unam.mx]
> Sent: Thursday, July 20, 2000 4:22 PM
> To: Olivares, Cesar (CORP, Consultant)
> Subject: RE: FW: BOUNCE perl@tlali.iztacala.unam.mx: Admin request of
> type /^sub\b/i at line 9 (fwd)
> 
> 
> > El resultado es que no hay resultado ... :-(
> > Estaba dando tiempo a que majordomo se encargara del correo, tu sabes,
por
> > tal o cual razon los correos en las listas suelen retrazarse. Pero ya
han
> > pasado varias horas y nanais.
> > Te envio el mensaje original como archivo anexo (attchm't).
> > Te agradecere mucho la ayuda Gunnar.
> 
> Pos el attachment no venia :-/ Podrias mandarmelo de nuez?
> 
> -------------------------------------------------------------------
>            Gunnar Wolf    gwolf@campus.iztacala.unam.mx
>      Universidad Nacional Autonoma de Mexico, Campus Iztacala
>    Jefatura de Seccion de Desarrollo y Admon. de Sistemas en Red
>         Area de Seguridad en Computo - DCI - DGSCA - UNAM
> -------------------------------------------------------------------
>   Beginner thinks 1Kb == 1000 bytes.   Master knows 1Km == 1024m
> 

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl