[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