Foro - Perl en Español

por **Pac17** » 2017-03-10 23:14 @009

Hola, soy nuevo programando en Perl y estoy tratando de hacer un ejercicio. Sin embargo, necesito una guía para realizarlo, ¿podrían asesorarme?

El programa a desarrollar tiene que leer un archivo .txt con información desordenada como la siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Nombre;Edad;Informacion1;Informacion2;Informacion3

Pedro;17;3.0;7;espanol

Juan;20;3.0;7;matematicas

Andrea;23;0;0;ciencias

;;

Mary;19;6;7.24;historiaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La información se debe de almacenar en un array o hash, descartar los ';', espacios, etc... he logrado leer el fichero .txt y almacenar los datos en un arreglo:
@array[0] = Nombre
@array[1] = Edad
etc.

Al imprimir mi arreglo me muestra la información de corrido:
NombreEdadInformacion1Informacion2Informacion3Pedro173.07espanolJuan203.07matematicasAndrea2300cienciasMary1967.24historia

También he logrado crear un nuevo archivo .txt e imprimir la información dentro de este, sin embargo, al momento de empezar a ordenar la información me encuentro con los problemas, la información debe quedar impresa de este modo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Nombre       Edad    Informacion1     Informacion2       Informacion3

Pedro          17             3.0               7             espanol

Juan           20             3.0               7         matematicas

Andrea         23               0               0            ciencias

Mary           19            67.2               4            historiaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Podría alguien orientarme en la realización de este programa? ¿Cómo podría darle ese formato de tabla a mi información localizada en un arreglo e imprimirla en el nuevo archivo .txt? ¿Hay manera de hacer un arreglo de 5 columnas sin delimitar las filas?

Agradecería muchísimo su ayuda.

¡Saludos!

Bienvenido a los foros de Perl en Español, Pac17.

Bueno, la información del archivo está organizada en registros de una línea, y campos separados por el carácter ';'. Decimos que está desordenada por el orden de los registros, ¿no?

Para imprimir un arreglo (array) puedes usar un bucle o utilizar la ayuda del módulo Data::Dumper, pero creo que estás guardando mal la información. Si sale toda la información del archivo es que estás guardando todos los campos de todos los registros en un único nivel de profundidad, es decir: que estás perdiendo el carácter bidimensional de la información y lo estás desplegando en una sola dimensión, con lo que luego será más difícil de trabajar.

Si no quieres que salga la información de corrido, te vale con imprimir el arreglo con entrecomillado doble:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

say "@array";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Observando el formato de la salida, vemos que algunos campos están alineados hacia la derecha y otros a la izquierda. Te recomiendo el uso de sprintf() para hacer el formateo de la salida.

La recomendación básica es la de guardar la información en una estructura bidimensional: un arreglo de arreglos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.18;
 
my @array = (
    [ 'Nombre',    'Edad', 'Informacion1', 'Informacion2',     'Informacion3', ],
    [ 'Pedro',       '17',          '3.0',            '7',          'espanol', ],
    [ 'Juan',        '20',          '3.0',            '7',      'matematicas', ],
    [ 'Andrea',      '23',            '0',            '0',         'ciencias', ],
    [ 'Mary',        '19',         '67.2',            '4',         'historia', ],
);
 
for my $reg (@array) {
    say sprintf "%-13s %4s %15s %15s %15s", @$reg;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información, en tu propio ordenador con el comando perldoc perllol, y en la Web (traducido al español).

por **Pac17** » 2017-03-11 15:22 @682

¡Muchísimas gracias por tu ayuda, explorer!

He logrado acomodar la información por columnas y presentarla en pantalla y en un archivo .txt. Sin embargo, aún tengo pendiente algunas tareas. ¿Tal vez podrías ayudarme con unas pistas?

Mi código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use v5.18;
use Data::Dumper;
use File::Slurp;
my @lineas;
my @rray;
my $rray;
my $texto;
 
open FICHERO, "<input.txt" or die "ERROR: No encuentro el fichero texto.txt\n";
@lineas = <FICHERO>        or die "ERROR: No puedo leer el fichero\n";
open FICHERO2, ">salida1.txt" or die "ERROR: No puedo abrir el fichero salida1.txt\n";
close FICHERO              or die "ERROR: No puedo cerrar el fichero\n";
 
foreach ( @lineas ) {
  push @rray, [ split /[;\n\t]/];
}
 
 
#print Dumper(\@rray);
 
for my $rray (@rray) 
{
 
    printf FICHERO2 "%-13s%20s%20s%20s%20s\n", @$rray;
}
close FICHERO2              or die "ERROR: No puedo cerrar el fichero\n";
 
 
my $texto = read_file('salida1.txt');
 
$texto=~ s/\n\n+/\n/g;
 
 #=~ s/\n\n+/\n/g;
 
write_file('salida2.txt', $texto);
 
 
 
#print FICHERO2 Dumper (\@rray);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He creado dos archivos de salida para realizar pruebas (salida1.txt y salida2.txt).
Al leer el texto de entrada como mencione anteriormente, este cuenta con algunas anormalidades: por ejemplo, dobles ';', espacios y algunos saltos de línea... En alguna parte de mi código se están reemplazando los ';' dobles por lo que parecen ser espacios y me está generando saltos de línea innecesarios o desacomodo en la información para el archivo de salida.

Intenté -sin éxito- ajustar el texto con la siguiente línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$texto=~ s/\n\n+/\n/g;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Hay alguna manera de eliminar los espacios extras ocasionados por los dobles ';' sin alterar la estructura actual de la información?

Una vez más te agradezco la ayuda y la bienvenida. Siento tanta pregunta dado que es mi tercer día programando en Perl.

Recibe un saludo.

por **explorer** » 2017-03-12 14:45 @656

Es posible que el split() de la línea 15 esté agregando una línea demás, ya que le estás pidiendo que "divida" cada línea también por el carácter de fin de línea ("\n"). O, sencillamente, que no estamos quitando el carácter de fin de línea del último campo de la línea.

Entonces... lo que hay que hacer es: 1- ponemos un chomp() antes de esa línea para asegurarnos que no contiene finales de línea. Y 2- quitamos "\n" del split(), porque no hace falta.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open FICHERO, "<input.txt" or die "ERROR: No encuentro el fichero texto.txt\n";
my @lineas = <FICHERO>     or die "ERROR: No puedo leer el fichero\n";
close FICHERO              or die "ERROR: No puedo cerrar el fichero\n";
 
foreach ( @lineas ) {
  chomp;
  push @rray, [ split /[;\t]/];
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Procesar archivo CSV

Procesar archivo CSV

Publicidad

Re: Procesar archivo CSV

Re: Procesar archivo CSV

Re: Procesar archivo CSV

¿Quién está conectado?