RE: Pasar array de perl a postsuper
Ya lo he probado, tanto con print como printf y echo ... pero me da un
error:
postsuper: warning: invalid mail queue id: CDCDCDCDC004 EDEDEDED003
Y Marcela, tu código me funciona a las mil maravillas, pero es que
actualmente lo estoy haciendo mediante un fichero de ids de esta forma ....
open (OUT, ">", 'spam.txt') or die "Imposible abrir el archivo spam.txt";
for (my $i=0;$i<=$#ids;$i++)
{
print OUT $ids[$i],"\n";
}
close (OUT);
system "awk '{ print \$1 }' spam.txt | tr -d '*!' | postsuper -d -";
.... sólo para que me de las salidas a pantalla así ...
(...)
postsuper: DC7C5D38004: removed
postsuper: C4ED9D38003: removed
postsuper: Deleted: 200 messages
.... en lugar de así ...
(...)
postsuper: DC7C5D38004: removed
postsuper: Deleted: 1 message
postsuper: C4ED9D38003: removed
postsuper: Deleted: 1 message
Sé que es una tontería, pero queda mucho más limpio. ¿Alguna idea de cómo
conseguirlo? Gracias.
> -----Mensaje original-----
> De: Carmen Marcela Alegria C. [mailto:alegria071@yahoo.com.mx]
> Enviado el: viernes, 12 de septiembre de 2008 22:32
>
> yo me la complicaria asi:
>
> @ids="el metod para obtener los ids"
> foreach (@ids) {
> chomp;
> if (($pid=fork()) == 0 ){
> @args = ("ruta_postsuper","-d","$_");
> system(@args) == 0 or die "system @args failed: $?";
> exit;
> }
> wait;
> }
>
> Y que conste que creo que no es el mejor metodo de hacer esto :P
>
>
> Saludos,
>
> Marcela Alegria
>
>
>
> --- El vie 12-sep-08, Gorka <gorkalinux@yahoo.es> escribió:
>
> > De:: Gorka <gorkalinux@yahoo.es>
> > Asunto: Pasar array de perl a postsuper
> > A: debian-user-spanish@lists.debian.org
> > Fecha: viernes, 12 septiembre, 2008, 4:25 am
> > Por fin tengo los ids de los mails que quiero eliminar de la
> > cola de correo.
> > Los he medido en un array de perl llamado @listado.
> > ¿Ahora cómo ejecuto desde mi script perl algo así ...?
> >
> > system "print @ids | postsuper -d -";
> > #Lógicamente esta sentencia no puede
> > funcionar.
Reply to: