Hi list. I tapeworm a disordered file which I repair it and produces this exit to me in my shell:
UNIDAD | TOTAL ----------------------------------------------------------------------------------------------------|---------- UNIDAD PARA LA PROMOCION Y DEFENSA DE LOS DERECHOS HUMANOS | 1 UNIDAD PARA LA ATENCION DE LAS ORGANIZACIONES SOCIALES | 1 UNIDAD DE ENLACE LEGISLATIVO | 2 UNIDAD DE CONTRALORIA INTERNA | 1 SUBSECRETARIA DE POBLACION,MIGRACION Y ASUNTOS RELIGIOSOS | 1 SUBSECRETARIA DE NORMATIVIDAD DE MEDIOS | 3 SUBSECRETARIA DE ENLACE LEGISLATIVO | 1 SECRETARIA | 4 DIRECCIÓN GENERAL DE DESARROLLO POLÍTICO | 1 DIRECCION GENERAL DE TECNOLOGIAS DE LA INFORMACION | 3 DIRECCION GENERAL DE MEDIOS IMPRESOS | 1 DIRECCION GENERAL DE COMUNICACION SOCIAL | 1 COORDINACION GENERAL DE LA COMISION MEXICANA DE AYUDA A REFUGIADOS | 4 -- UNIDAD SIN DEFINICION -- | 1 14 rows selected. But when I send it by email the exit is disordered. How could I send this file and receive it ordered in the inbox ???? This my code: #!/usr/bin/perl use strict; my $rmorales = "[EMAIL PROTECTED]"; #- Correo de Rafael Morales my $alertas = "alertaMail.log"; #- Archivo que contiene la informacion de alertas open MAIL,"|mail $rmorales" || warn "No se ha encontrado la direccion de correo\n$!"; open (ALERTAS, "<$alertas") || die "No se ha encontrado el archivo $alertas\n$!"; open (TOTAL, ">total.txt") || die "No se puede escribir en el archivo total.txt\n$!"; foreach (<ALERTAS>) { $_=~ s/(\w)\s\t/$1/; $_=~ s/(--)\t\t/$1/; print TOTAL "$_"; print MAIL "$_\n"; } close (ALERTAS); Regards. -- _______________________________________________ Get your free email from http://mymail.bsdmail.com Powered by Outblaze -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>