Foro - Perl en Español

por **malgo** » 2006-03-16 12:41 @570

Saludos a todos, tengo un archivo txt delimitado por punto y comas.

Necesito comparar los datos para poder escribir en una u otra hoja de cálculo, y no sé cómo compararlos.

Por favor, alguien sabe... Gracias totales.

#!/usr/bin/perl
open(my $fh, '<', 'fichero_datos.txt');
while ( my $linea = <$fh> ) {
    my ( $valor1, $valor2 ) = split(';', $linea);
    if ( $valor eq $valor ) {
        print "Los valores son iguales en la línea $.\n";
    }
}
close $fh;
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **malgo** » 2006-03-16 17:01 @751

En realidad hago esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub text_to_excel {
 
    # %args should look something like...
    # ( delimiter => "\t",
    #   recordsep => "\n",
    #        file => "/path/to/file.txt"
    #        name => "Sheet Title" )
    # the only required args are delimiter and file
 
    my @var  = 0;
    my %args = @_;
    my ( $delimiter, $recordsep, $file, $name, $outfile ) = @args{qw( delimiter recordsep file name outfile )};
 
    $delimiter and $file
        or die "Must provide at least delimiter and file as args to" . "delimited_text_to_excel().";
 
    -e $file
        or die "There is no file: $file\n";
 
    open( F, "< $file" ) or die("Can't open $file: $!");
    $/ = $recordsep || "\n";
    my @data = <F>;
    close F;
    $/ = "\n";
 
    my $workbook = Spreadsheet::WriteExcel->new($outfile);
 
    #my $worksheet = $workbook->addworksheet($name||'Page 1');
 
    # Add some worksheets
    my $procesadas = $workbook->add_worksheet("Transacciones Procesadas");
    my $pendientes = $workbook->add_worksheet("Transacciones Pendientes");
 
    my $header = $workbook->add_format();    # Add a format
    $header->set_bold();
    $header->set_size(15);
    $header->set_align('center');
    $header->set_align('vcenter');
    $header->set_font('garamond');
 
    my $borde = $workbook->addformat();      # Add a format
    $borde->set_border();
 
    my $format1 = $workbook->addformat();    # Add a format
    $format1->set_size(11);
    $format1->set_bold();
    $format1->set_align('left');
    $format1->set_align('vleft');
    $format1->set_font('garamond');
 
    my $format2 = $workbook->addformat();    # Add a format
    $format2->set_size(10);
    $format2->set_align('center');
    $format2->set_align('vcenter');
    $format2->set_num_format('#,##0');
    $format2->set_font('garamond');
 
    $worksheet->set_column( 'A:A', 60 );
    $worksheet->set_column( 'B:B', 15 );
    $worksheet->set_column( 'C:C', 15 );
    $worksheet->set_column( 'D:D', 15 );
    $worksheet->set_column( 'E:E', 15 );
 
    for ( my $row = 0; $row < @data; $row++ ) {
        chomp( my @line = split /$delimiter/, $data[$row] );
 
        for ( my $col = 0; $col < @line; $col++ ) {
            if () {                    # FALTARÍA COMPARAR EL (*) QUE ESTÁ DENTRO DEL ARCHIVO TXT COMO CORTE (CAMBIO DE HOJA)
                @var = 1;
            }
 
            if ( @var == 1 ) {
                if ( $row == 0 ) {
                    $pendientes->merge_range( 'A1:E1', $line[$col], $header );
                }
                if ( $row == 2 ) {
                    $pendientes->write( $row, $col, $line[$col], $format1 );
                }
                if ( $row > 2 ) {
                    $pendientes->write( $row, $col, $line[$col], $format2 );
                }
            }
            else {
                if ( $row == 0 ) {
                    $procesadas->merge_range( 'A1:E1', $line[$col], $header );
                }
                if ( $row == 2 ) {
                    $procesadas->write( $row, $col, $line[$col], $format1 );
                }
                if ( $row > 2 ) {
                    $procesadas->write( $row, $col, $line[$col], $format2 );
                }
            }
        }
    }
    $workbook->close();
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Muchísimas gracias por la respuesta.

por **explorer** » 2006-03-17 07:40 @361

malgo escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting

sub text_to_excel {

# %args should look something like...

# ( delimiter => "\t",

# recordsep => "\n",

# file => "/path/to/file.txt"

# name => "Sheet Title" )

# the only required args are delimiter and file

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Pues en efecto, es eso.

Tu código es una función que tiene que ser llamada por ejemplo así:

text_to_excel({delimeter=>';',file="/camino/a/tu/fichero.txt",name=>"Hoja 1");

Dentro del código veo que está lo mismo que te he puesto más arriba: abrir el fichero, y luego, línea por línea, dividir.

malgo escribiste:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting

open(F, "< $file") or die("Can't open $file: $!");

$/ = $recordsep || "\n";

my @data = <F>;

close F;

$/ = "\n";

# ...

for ( my $row = 0; $row < @data; $row++ )

{

chomp( my @line = split /$delimiter/, $data[$row] );

# ...

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¿Dónde tienes el problema?

por **malgo** » 2006-03-17 08:49 @409

Te lo explico: dentro del archivo txt hay un asterisco (*) en medio de X cantidad de filas. Lo que pretendo hacer es colocar en una hoja Excel el primer registro hasta donde este el asterisco y continuar en otra hoja el resto de los registros hasta final del archivo.

Mi problema es que no sé cómo decirle al Perl que mientras recorra fila por fila compare con el asterisco, porque el @data es el archivo completo y el @line es un registro dividido por ';'. No sé si existe alguna forma de hacer comparaciones de cadenas con cada una de las divisiones del @line.

Gracias.

por **explorer** » 2006-03-18 06:54 @329

Inserta aquí:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for(my$row=0;$row<@data;$row++){
chomp(my@line=split/$delimiter/,$data[$row]);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

antes del chomp(), esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($data[$row]eq'*'){
# Aquí, cerrar la hoja actual
# Aquí, abrir nueva hoja
# ahora saltamos a la siguiente línea del fichero:
next;
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Como verás, ahora surge otro problema: tienes que recopiar todo el proceso de cierre y de apertura de hoja dentro de ese if()... se podría arreglar poniendo todas esas líneas como subrutinas, claro.

Otra forma de plantear el problema:

Lees el fichero
Lo partes en pedazos, según el '*'
Par cada parte, lo mandas a la subrutina text_to_excel, pero hay que modificarla antes, para que en vez de leer de un fichero de texto, lo lea del array que le estas pasando como argumento (por ejemplo).

Y finalmente otra opción:

Lees el fichero
Lo partes en pedazos, según el '*' y cada parte la grabas a un fichero distinto
Por cada fichero generado, se lo pasas a la subrutina text_to_excel.

por **malgo** » 2006-03-20 17:45 @781

Ya está hecho, gracias por los consejos, explorer, salió a la perfección, pero tengo algunas dudas todavía con relación a la comparación de cadenas.

Al comparar el asterisco de esta forma: if ( $data[$row] =~/*/ ) no me encuentra en el archivo, pero si cambio el asterisco por una letra(s) en el archivo y en la sentencia if() por esas mismas letra(s).

Ej.: if ( $data[$row] =~/corte/ ) ahí sí encuentra.

¿Será que el asterisco o algún otro símbolo tenga algún trato especial en las comparaciones de expresiones regulares? Estaba leyendo los tutoriales y ¡¡no creo haber leído sobre excepciones en las comparaciones!!

Gracias nuevamente...

por **kidd** » 2006-03-20 17:58 @790

Hola.

Si quieres usar el '*' como diciendo cualquier cosa, entonces debes de poner:

$data[$row] =~/.*/

El punto significa cualquier carácter o símbolo, y el asterisco significa repetido 0 o más veces.

Para más detalles, checa los tutoriales acerca de expresiones regulares:
http://perlenespanol.com/archives-tut/c ... lares.html

Ahora, si quieres usar el asterisco literalmente, entonces debe de ser:

$data[$row] =~/\*/

Saludos

Foro - Perl en Español

Cómo puedo saber qué contiene la fila antes del write

Cómo puedo saber qué contiene la fila antes del write

Publicidad

Re: Cómo puedo saber que contiene la fila antes del write

Re: Cómo puedo saber que contiene la fila antes del write

Re: Como puedo saber que contiene la fila antes del write

¿Quién está conectado?