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