[Perl] Ayuda con envio de mail

[Carmen Marcela Alegria C.]

 Te recomiendo usar el modulo mime:lite


http://www.akadia.com/services/email_attachments_using_perl.html


Saludos,

Marcela Alegria


 --- Guillermo Farias Diaz <gfarias en altavoz.net>
escribió:

> Usa el Módulo Mail::Sender
> 
> muy útil facil de usar no dependes de un programa
> externo especifico, 
> además de poder usar un SMTP no necesariamente
> local.
> 
> Atte.
> Guillermo A. Farias Diaz
> Linux Counter: #286041.
> FreeBSD user.
> Altavoz S.A.
> 
> 
> Ariel E. Pedrozo - Sysadmin wrote:
> > *
> > G*racias !!! de funcionar funciona... pero no
> envia por mail el 
> > contenido de la variable $ar
> > 
> > print MAIL "$ar\n";  ----> eso no esta haciendo...
> alguna sugerencia ???
> > 
> > Gracias por todo !!!
> > 
> > Salu2
> > 
> >  > El primer problema es que estás mandando la
> salida del comando "ls -lht
> >  > | awk '{print $6,$7,$8,$9}" a un archivo que se
> llama "medalla.txt".
> >  > El segundo problema es que la función system no
> te regresa la salida del
> >  > comando que ejecuta si no su código de salida.
> >  >
> >  > Según entiendo lo que quieres es la salida del
> comando para guardarla en
> >  > la variable $ar, entonces sería así (sin usar
> awk, no es necesario):
> >  >
> >  > my @lista_larga = `ls -lht`;
> >  >
> >  > my $ar;
> >  > foreach my $elem (@lista_larga){
> >  >    my @linea = split(" ", $elem);
> >  >    $ar .= "$linea[6] $linea[7] $linea[8]
> $linea[9]\n";
> >  > }
> >  >
> >  > de aquí en adelante tienes tu listado en la
> variable $ar
> >  >
> >  > Si lo quieres hacer con awk, esta sería la
> manera:
> >  >
> >  > my $ar = `ls -lht | awk '{print
> \$6,\$7,\$8,\$9}'`;
> >  > print "$ar\n";
> >  >
> >  > son menos líneas de código pero vale la pena
> tener más líneas de código
> >  > que llamar a awk desde perl :-P
> >  >
> >  > espero que esto te sirva.
> >  >
> >  > Ariel E. Pedrozo - Sysadmin wrote:
> >  > > Buenas tardes listeros... como andan ??
> espero que bien... tengo un 
> > problema con
> >  > > el envio de mail desde un scripcito.
> >  > >
> >  > > Basicamente es listar lo que hay en un
> directorio... cargarlo a un 
> > archivo y
> >  > > enviarlo por mail.... el problema esta que no
> envia el contenido 
> > del archivo
> >  > >
> >  > > Basicamente el script es asi
> >  > >
> >  > > #!/usr/bin/perl -w
> >  > > use strict;
> >  > >  
> >  > > my $ar=system("ls -lht | awk '{print
> $6,$7,$8,$9}' > medalla.txt");
> >  > >  
> >  > >  
> >  > > open (MAIL,"|/usr/lib/sendmail -t");
> >  > > print MAIL "To: user\@cabal.com.py\n";
> >  > > print MAIL "From: user\@cabal.com.py\n";
> >  > > print MAIL "Subject: Verificacion diaria de
> Archivos FTP\n\n";
> >  > > print MAIL "$ar\n";
> >  > > close(MAIL);
> >  > >  
> >  > > exit(1);
> >  > >
> >  > > Desde ya muchas gracias por la ayuda.
> >  > >
> >  > > Abrazos desde Paraguay.
> >  > >
> >  > > -------------------------------------
> >  > > Ariel E. Pedrozo
> >  > > DBA & Network Administrator
> >  > > Coop. Cabal LTDA
> >  > > Ed. Ahorros Paraguayos 5to. Piso
> >  > > Tel: 453009 int. 192
> >  > > Mov: 0971 730744
> >  > > Asuncio - Paraguay
> >  > >
> >  > >
> >  > > 
> >
>
------------------------------------------------------------------------
> >  > >
> >  > >
> _______________________________________________
> >  > > Perl mailing list
> >  > > Perl en tlali.iztacala.unam.mx
> >  > >
>
http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
> >  >
> >  > --
> >  > Iván Chavero
> >  > Administrador de Sistemas UNIX
> >  > CGTI/DSE
> >  > Universidad Autónoma de Chihuahua
> >  > ichavero en uach.mx
> >  > http://cgti.uach.mx <http://cgti.uach.mx/>
> >  > Tel. 614 439 18 35 ext 1728
> > 
> > 
> > -------------------------------------
> > Ariel E. Pedrozo
> > DBA & Network Administrator
> > Coop. Cabal LTDA
> > Ed. Ahorros Paraguayos 5to. Piso
> > Tel: 453009 int. 192
> > Mov: 0971 730744
> > Asuncio - Paraguay
> > 
> > 
> >
>
------------------------------------------------------------------------
> > 
> > _______________________________________________
> > Perl mailing list
> > Perl en tlali.iztacala.unam.mx
> >
>
http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
> _______________________________________________
> Perl mailing list
> Perl en tlali.iztacala.unam.mx
>
http://tlali.iztacala.unam.mx/cgi-bin/mailman/listinfo/perl
> 



	
	
		
___________________________________________________________ 
Do You Yahoo!? 
La mejor conexión a Internet y <b >2GB</b> extra a tu correo por $100 al mes. http://net.yahoo.com.mx