[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]
>#!/usr/bin/perl
>#
>for ($u = 1;$u <= 3000;$u++) {
> print ($u,"\n");
> open(QUO,'|mail -s "Basta de enviar spam" email en maquina red <archivo.txt');
>}
Si te lee Tom Christiansen, se desayuna tus riñones al vino:
#!/usr/bin/perl
foreach (1..3000) {
print;
`mail -s "Basta de enviar spam" email en maquina red <archivo.txt')`
or die 'No pude ejecutar el mail...\n';
}
--
La Mancha, http://dania.matem.unam.mx/~mancha
casa://depto5.AvRevolucion1761.SanAngel.df.mx/~mancha
ring://5550-2547.df.telmex.com.mx/~pedir.por.mancha
chamba://cubo-120.matem.cu.unam.mx/~mancha
rechamba://5622-4484.df.telmex.com.mx/~pedir.por.el.chalan