[LUG.ro] perl y matriculacion obligatoria.

[Horacio Castellini]

Muy bueno, mas lo de "amorosos diputados" Ehh! que van a pensar de
nosotros... que somos medio maracas...

> Me llego esto que me parece interesante compartirlo ya que no lo he visto
> publicado en la lista:
>
> #!/usr/bin/perl
>
> use Net::SMTP;
>
> #Cargamos la lista de mails de los diputados y la carta modelo
> open (CARTA, "carta") or die "no puedo abrir la carta: $!\n";
> @MSG=<CARTA>;
> close (CARTA);
> open (MAILS, "mails") or die "no puedo abrir los mails: $!\n";
> @data=<MAILS>;
> close (MAILS);
>
> #### EDITAR
> #Especificamos el servidor smtp que enviara nuestro correo
> #Arnet es buena onda =)
> $smtp = Net::SMTP->new('smtp.domain.net');
>
> #Origen - Nuestra direccion de correo
> $smtp->mail(' user@domain.net');
> #### FIN EDITAR
>
> #Destino - Amorosos Diputados, muack's!
> foreach $mail(@data){
> $smtp->to("$mail");
> }
>
> $smtp->data();
>
> #Asunto - Si se quiere editar, pues adelante!
> $smtp->datasend("Subject: No a la ley de matriculacion\n\n");
> $smtp->datasend(@MSG);
> $smtp->dataend();
> $smtp->quit;
>
>
> Los 3 archivos deben estar en el mismo directorio. No olvideis editar el
> final del file carta con sus datos personales.
>
> pd: Dicen que si lo pones en tu crontab cada una hora, maniana encontraras
> al amor de tu vida.
> Salu2.
> pd2: En caso de no tener Net::SMTP lo pueden instalar con el comando cpan -i
> Net::SMTP.
>
> --
> perl -e 'print pack(c5, (41*2), sqrt(7056), (unpack(c,H)-2), oct(115), 10)'
>