Foro - Perl en Español

por **decaro6802** » 2012-05-15 21:41 @945

Hola, buenas noches:

Necesito saber cómo puedo seleccionar información que empieza con dos signos de mayor y además que empiece con inst. ¿Cómo le puedo hacer en Perl?

Ok, gracias, de hecho ya lo pude resolver, pero ahora tengo otro problema.

Me están enviando un archivo plano con extensión csv (separado por comas), pero en la columna 2 está el problema ya que esta información la estoy pasando a un archivo plano con columnas fijas de 100 posiciones y resulta que viene de 101 posiciones y esta me está dando problemas para leer el archivo.

Cómo puedo hacer en Perl para que nada más contemple 100 posiciones en la salida ya que nada más me interesan las 100 posiciones.

Espera de su pronta respuesta quedo a sus órdenes. Anexo archivos que son los siguientes:

Resultado.txt (archivo del resultado de la ejecución del Perl)
Archivo.csv (cómo me están enviando la información).
Programa.pl (Programa Perl).

Saludos

por **explorer** » 2012-05-18 04:02 @210

$campo2 = substr $campo2, 0, 100;

Más información en perldoc -f substr

por **decaro6802** » 2012-05-18 11:23 @516

Hola, buenos días:

Ya intenté hacerlo pero el resultado no es el esperado, ¿cómo puedo aplicarlo en el programa que le pasé? Y aprovechando de una vez todos los campos, ¿cómo le puedo hacer? Son 7 campos que vienen en el archivo Excel que le envíe, los dos primeros deben de ser de 100 y los demás de 28.

En espera de su pronta respuesta, quedo a sus órdenes.

Saludos.

por **explorer** » 2012-05-18 12:49 @575

Con este programa ya sale bien.

Solo hubo que agregar la precisión al printf.

Tienes más información en perldoc -f sprintf

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Formateo de campos CSV.
# Joaquín Ferrero, 20120518
#
use strict;
use warnings;
use diagnostics;
 
binmode STDOUT, ':crlf';   # salida de las líneas en modo MSDOS
 
while (my $linea = readline) {
 
    chomp $linea;
    $linea =~ s/"//g;
    next if $linea !~ /^(?:Ins|>>)/;
 
    my @campos = split /,/, $linea;
    next if @campos < 7;
 
# estas líneas no son necesarias porque se indica la "precisión" en el printf,
# que se encargará de recortar los caracteres sobrantes
#    for my $campo (@campos[0,1]) {
#       $campo = substr $campo, 0, 100;
#    }
#    for my $campo (@campos[2..6]) {
#       $campo = substr $campo, 0, 28;
#
#    }
 
    printf "%-100.100s%-100.100s%-28.28s%-28.28s%-28.28s%-28.28s%-28.28s*\n", @campos;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Seleccionar información de un archivo en Perl

Seleccionar información de un archivo en Perl

Publicidad

Re: Seleccionar información de un archivo en Perl

Re: Seleccionar información de un archivo en Perl

Re: Seleccionar información de un archivo en Perl

Re: Seleccionar información de un archivo en Perl

Re: Seleccionar información de un archivo en Perl

¿Quién está conectado?