Re: Opiniones para un script en perl.....
Ruben Porras, [EMAIL PROTECTED]:43:50(+0200): El dom, 22-06-2003 a las 00:56, Hue-Bond escribió: Ruben Porras, [EMAIL PROTECTED]:50:47(+0200): Creo que no es necesario hacer la distinción entre y , pues ambos crean el fichero si este no existe. Pero, ¿y si existe? ;^). Pues si usas se continual escribiendo el fichero desde el final, ¿no es esto lo que se quería? Entonces sí es necesario hacer la distinción entre y , que es a lo que iba yo. -- David Serrano - Linux Registered User #87069
Re: Opiniones para un script en perl.....
On Sat, 2003-06-21 at 18:56, Hue-Bond wrote: Ruben Porras, [EMAIL PROTECTED]:50:47(+0200): Creo que no es necesario hacer la distinción entre y , pues ambos crean el fichero si este no existe. Pero, ¿y si existe? ;^). agrega datos en el archivo si es que existe. -- David Serrano - Linux Registered User #87069 -- Alejandro Valdés J. Debian GNU/Linux Sid Linux User #228152 http://www.gibbon.cl mailto: [EMAIL PROTECTED]
Re: Opiniones para un script en perl.....
El dom, 22-06-2003 a las 00:56, Hue-Bond escribió: Ruben Porras, [EMAIL PROTECTED]:50:47(+0200): Creo que no es necesario hacer la distinción entre y , pues ambos crean el fichero si este no existe. Pero, ¿y si existe? ;^). Pues si usas se continual escribiendo el fichero desde el final, ¿no es esto lo que se quería?
Re: Opiniones para un script en perl.....
Ruben Porras, [EMAIL PROTECTED]:50:47(+0200): Creo que no es necesario hacer la distinción entre y , pues ambos crean el fichero si este no existe. Pero, ¿y si existe? ;^). -- David Serrano - Linux Registered User #87069
Re: Opiniones para un script en perl.....
Allá por el 18/Jun/2003, Orvil Juárez escribió:
Yo personalmente no le veo ningún problema a primera vista, pero
trataría de descubrir porqué procmail no hace su trabajo. Luego, en
lugar de ese script, utilizaría el módulo Net::PO3 para hacer lo que
quieres, te ahorra descargarte el mensaje del servidor.
Suerte.
Que tal Listeros,
Me gustaria que los mas duchos perleros me dieran una opinion de este
pequeño script que hice al vapor ya que necesito filtrar los emails pero
el procmail no jala ni a patadas... el codigo es el siguiente el cual
toma como entrada el contenido de un email, ya que en el .forward tiene
la instruccion:
|/usr/bin/filtro.pl
y me gustaria si no es mucha molestia que me dijeran:
Que problemas le ven??
Creen que le afecte a los mensajes?
No se pegaran dos mensajes o tres y bajaran como uno solo al cliente de
correo?
Tengo que bloquear el archivo antes de escribir en el??
Se hara mas lento el proceso de entrega del mail??
o no esta a toda mauser.
-
#!/usr/bin/perl
my $intVeces=0;
my $Linea;
my $Subj;
my $strMail=;
while($Linea=)
{
$strMail=$strMail . $Linea;
if ($Linea=~/.*filename=.*(\.bat|\.exe|\.vbs).*/i)
{
$intVeces++;
}
if ($Linea=~/^Subject:.*/i)
{
$Subj = $Linea;
}
}
if ($intVeces = 0)
{
if( -e /var/spool/mail/orvux)
{
open f1, /var/spool/mail/orvux;
print f1 $strMail;
}
else
{
open f1, /var/spool/mail/orvux;
print f1 $strMail;
}
close f1;
}
else
{
if( -e /home/users/orvux/borrados.log)
{
open f2, /home/users/orvux/borrados.log;
print f2 Mail Borrado-- . $Subj . \n;
}
else
{
open f2, /home/users/orvux/borrados.log;
print f2 Mail Borrado-- . $Subj . \n; }
close f2;
}
--
OrvUx
Making the Hard...Soft with Linux.
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of unsubscribe. Trouble? Contact
[EMAIL PROTECTED]
Opiniones para un script en perl.....
Que tal Listeros,
Me gustaria que los mas duchos perleros me dieran una opinion de este
pequeño script que hice al vapor ya que necesito filtrar los emails pero
el procmail no jala ni a patadas... el codigo es el siguiente el cual
toma como entrada el contenido de un email, ya que en el .forward tiene
la instruccion:
|/usr/bin/filtro.pl
y me gustaria si no es mucha molestia que me dijeran:
Que problemas le ven??
Creen que le afecte a los mensajes?
No se pegaran dos mensajes o tres y bajaran como uno solo al cliente de
correo?
Tengo que bloquear el archivo antes de escribir en el??
Se hara mas lento el proceso de entrega del mail??
o no esta a toda mauser.
-
#!/usr/bin/perl
my $intVeces=0;
my $Linea;
my $Subj;
my $strMail=;
while($Linea=)
{
$strMail=$strMail . $Linea;
if ($Linea=~/.*filename=.*(\.bat|\.exe|\.vbs).*/i)
{
$intVeces++;
}
if ($Linea=~/^Subject:.*/i)
{
$Subj = $Linea;
}
}
if ($intVeces = 0)
{
if( -e /var/spool/mail/orvux)
{
open f1, /var/spool/mail/orvux;
print f1 $strMail;
}
else
{
open f1, /var/spool/mail/orvux;
print f1 $strMail;
}
close f1;
}
else
{
if( -e /home/users/orvux/borrados.log)
{
open f2, /home/users/orvux/borrados.log;
print f2 Mail Borrado-- . $Subj . \n;
}
else
{
open f2, /home/users/orvux/borrados.log;
print f2 Mail Borrado-- . $Subj . \n; }
close f2;
}
--
OrvUx
Making the Hard...Soft with Linux.
Re: Opiniones para un script en perl.....
El mi? 18-06-2003 a las 17:55, Orvil Juárez escribió:
Que tal Listeros,
Me gustaria que los mas duchos perleros me dieran una opinion de este
pequeño script que hice al vapor ya que necesito filtrar los emails pero
el procmail no jala ni a patadas... el codigo es el siguiente el cual
toma como entrada el contenido de un email, ya que en el .forward tiene
la instruccion:
Tomatelo como consejo de un novato ;)
Creo que no es necesario hacer la distinción entre y , pues ambos
crean el fichero si este no existe.
Los manejadores de ficheros se suelen escribir en mayúsculas.
if ($intVeces = 0)
{
open F1, /var/spool/mail/orvux;
print F1 $strMail;
close F1;
}
else
{
open F2, /home/users/orvux/borrados.log;
print F2 Mail Borrado-- . $Subj . \n;
close F2;
}
Ah, y creo que deberías de hacer algo en caso de que los ficheros no se
puedan abrir (aunque no sea más que un mensaje de error).
Re: Opiniones para un script en perl.....
Orvil Juárez: el procmail no jala ni a patadas... [...] Si lo maltratas, no funcionará... En vez de reinventar la rueda con perl te sugiero que averigües primero por qué no te funciona procmail, ya que a la mayoría de la gente sí que le funciona. Pero como siempre, si lo único que nos dices es que no te funciona, sin decirnos absolutamente nada más, entonces difícilmente podremos ayudarte.
