[Perl] Ayuda con envio de mail

[Iván Chavero]

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
Tel. 614 439 18 35 ext 1728