[Previo por Fecha] [Siguiente por Fecha] [Previo por Hilo] [Siguiente por Hilo]
[Hilos de Discusión] [Fecha] [Tema] [Autor]Par de correcciones mas :)
> #!/usr/bin/perl
> #
> $u = 1;
> while ($u <= 3000) {
> print ($u,"\n");
> open(QUO,'|mail -s "Basta de enviar spam" email en maquina red <
> archivo.txt');
> $u += 1;
> }
> exit (0);
Esto yo lo haria asi:
#!/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');
}
Que hice? Simple:
a) Substituir la declaracion de $u, el ciclo while y el incremento de $u
por un ciclo for
b) Me gusta mas $u++ que $u += 1, pero es cuestion de gustos :)
c) El print podrias omitirlo... Pero bueno, no hace da&o.
-------------------------------------------------------------------
Gunnar Wolf gwolf en campus iztacala unam mx tel. 5623-1118
Universidad Nacional Autónoma de México, Campus Iztacala
Jefatura de Sección de Admon. de Sistemas y Telecomunicaciones
-------------------------------------------------------------------