[Perl] Ayuda con envio de mail

[Guillermo Farias Diaz]

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