[perl] Pregunta

[Alejandra Carrillo]

> -----Original Message-----
> From: owner-perl@tlali.iztacala.unam.mx
> [mailto:owner-perl@tlali.iztacala.unam.mx]On Behalf Of Ing. Roberto
> Andrade
> Sent: Friday, March 12, 1999 6:42 PM
> To: perl@tlali.iztacala.unam.mx
> Subject: RE: [perl] Pregunta
>
> Lo que debes hacer es crear dos 'handlers': uno para leer tu
> erchivo y el otro
> para escribir SOLAMENTE las líneas que deseas mantener, creo
> que hay un mensaje,
> y algo de codigo, en le histórico de la lista.
>
> Saludos,
>
> Roberto Andrade Fonseca

   Gracias, hice algo más o menos así:

  open (LOG, "$file") || die "Can't Open $file: $!\n";
  @LINES=<LOG>;
  close (LOG);
  $SIZE=@LINES;
  for ($i=0;$i<=$SIZE;$i++) {
    $_=$LINES[$i];
    if (/^From /) {
      $m += 1;
    }
    if ($m ne $msg) {
      $out .= $_;
    }
  }
  open (LOG, ">$file") || die "Can't Open $file: $!\n";
  print LOG "$out";
  close (LOG);

   $msg es el mensaje que quiero borrar, quizá se pueda hacer
   de un sólo paso.

   Ya tengo dos versiones de lector de correo, una que lee el
   archivo de forma local y la otra que le elcorreo a través
   de un servidor POP3. Todavía tengo algunos problemillas con
   la versión de POP3 con correos que vienen en text-rich o
   con que traen "attachments".

   Seguiremos informando.

   Ciao,
   Alejandra.

   http://spin.com.mx/~alejandrav

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