Foro - Perl en Español

por **charlygarza** » 2013-05-30 10:17 @470

Necesito ayuda. Lo que busco hacer es lo siguiente:

Leer el archivo
Seleccionar el tipo de actividad (esta puede ser, concierto, fútbol, baloncesto, desfile, cine
Crear un archivo a partir del nombre de la actividad
Almacenar ahí los registros correspondientes a esa actividad
Imprimir el nombre del archivo y los registros correspondientes a cada archivo

Tendría que crear en este caso 5 archivos, cada uno a partir del tipo de actividad y almacenar ahí los registros relacionados con esa actividad.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open( IN, "+<D:/etc/ticketsven.txt" or die "ERROR: No puedo abrir el archivo: $!\n" );
open( OUT, ">D:/etc/$actividad.txt" );
while ( $linea = <IN> ) {
 
    $linea =~ /basquetbol/;
 
    print OUT $linea;
}
close(IN);
close(OUT);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo intenté hacer de esta manera. También lo que busco es introducir los datos del archivo en un arreglo y compararlo e imprimir lo que obtengo pero no funciona. Probé esto para luego implementar que en caso que sea igual en lugar de imprimirlos que los guardara en un archivo con el valor que toma la variable $_.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Data::Dumper;
open( CONTRAS, "+<D:/etc/ticketsven.txt" );
while (<CONTRAS>) {
    chomp;
    push @archivo, [split];
    my $variable = basquetbol;
    foreach (@archivo) {
        if ( $_ == $variable ) {
            print "$_ \n";             # imprimimos la línea en turno
        }
    }
}
close(CONTRAS);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
 
open( CONTRAS, "+<D:/etc/ticketsven.txt" );
while (<CONTRAS>) {
    chomp;
    push @archivo, [split];
    my $variable = 'basquetbol';
    foreach (@archivo) {
        if ( $_ eq $variable ) {
            open(OUT, "+>D:/etc/$variable.txt");
            print "@archivo";
            
        }
    }
       print "$_ \n";             # imprimimos la línea en turno
}
close(CONTRAS);
close(OUT);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **danimera** » 2013-05-30 17:14 @759

No estoy seguro de esta línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(OUT, "+>D:/etc/$variable.txt");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

normalmente yo haría

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (OUT,">$file"); 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero aun así, ¿estás seguro de que te está abriendo el fichero y lo está recorriendo bien?

por **charlygarza** » 2013-05-30 18:08 @797

El primer archivo lo recorre bien pues me muestra los datos. El problema tal vez está en la comparación ya que imagino que el arreglo guarda los datos como uno solo: 1:basquetbol:españa:100 y de esta manera no puede igualar la búsqueda basquetbol con la línea que guarda como una posición en el arreglo...

por **explorer** » 2013-05-30 18:35 @816

Los paréntesis en los open() están mal: están rodeando a los die(), cuando en realidad los die() debería estar fuera de la operación open().

Si creo que lo he entendido, sería algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my @actividades = qw(
    concierto  cine
    futbol     basquetbol
    desfile
);
 
open(IN, "<D:/etc/ticketsven.txt") or die "ERROR: No puedo abrir el archivo: $!\n";
 
while (my $linea = <IN>) {
 
    for my $actividad (@actividades) {                 # recorremos todas las actividades
 
        if ($linea =~ /$actividad/) {                  # ¿está la $actividad dentro de la $linea?
 
            open( OUT, ">>D:/etc/$actividad.txt" );    # sí, abrimos el archivo correspondiente, en modo añadir
            print OUT $linea;                          # guardamos la $linea
            close OUT;
 
            last;                                      # no hace falta seguir mirando más actividades
        }
    }
}
close IN;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Vamos leyendo por líneas; por cada una, la comparamos con todas las actividades, y cuando alguna coincide, grabamos la línea en el archivo de la actividad.

Esto no es nada eficiente. Se puede mejorar:

si sabemos cómo es la estructura interna del archivo que estamos leyendo
si antes del bucle abrimos todos los archivos en los que vamos a escribir

Otra forma de hacerlo sería usando grep() (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my @actividades = qw(                     # recordamos las actividades que nos interesan
    concierto  cine
    futbol     basquetbol
    desfile
);
 
open( IN,  "<D:/etc/ticketsven.txt" ) or die "ERROR: No puedo abrir el archivo: $!\n";
my @lineas = <IN>;                        # leemos todas las líneas
close IN;
 
for my $actividad (@actividades) {                 # recorremos todas las actividades
    open  OUT, ">>D:/etc/$actividad.txt";          # abrimos el archivo correspondiente, en modo añadir
    print OUT grep { /$actividad/ } @lineas;       # guardamos en él todas las @lineas que coincidan con la $actividad
    close OUT;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **charlygarza** » 2013-05-30 18:51 @827

Muchas gracias. Utilizando la función grep() me crea los archivos con el nombre correcto de la actividad y me los ingresa todo bien, pero también crea otros archivos como las.txt y aquí ingresa los campos de la actividad fútbol, así como otros campos de texto. Lo he intentado modificar pero la verdad no me ha funcionado.

por **explorer** » 2013-05-30 18:59 @833

Eso es porque no sabemos cómo es el archivo de entrada por dentro. ¿No puedes publicar unas pocas líneas para que lo veamos?

Es muy posible que el fallo esté en las palabras con tildes.

por **charlygarza** » 2013-05-30 19:27 @852

Estos son los registros actuales. Este es el formato:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

basquetbol:chiquimula:mayo 2013:chiquimula

futbol:esquipulas:jutiapa:paizColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Este es el código que utilicé.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
open IN, "+<D:/etc/ticketsven.txt" or die "ERROR: No puedo abrir el archivo: $!\n";
seek IN, 0, 2;
 
for($x=1; $x<=3; $x=$x+1){
 
    print "introduzca datos  \n";
    print "ingrese numero de ticket: ";
    chomp( $numero = <STDIN> );
 
 
     print "ingrese tipo de actividad: ";
     chomp( $actividad = <STDIN> );
    
     print "ingrese lugar de actividad: ";
     chomp( $lugar = <STDIN> );
     
     print "ingrese fecha de actividad: ";
     chomp( $fecha = <STDIN> );
     
     print "ingrese lugar de compra: ";
     chomp( $lugarcompra = <STDIN> );
     
     print "ingrese precio ticket: ";
     chomp( $precio = <STDIN> );
 
    print IN "$numero:$actividad:$lugar:$fecha:$lugarcompra\n";
    
    print "\n";
}
 
close IN;
 
print "INFORMACIÓN TICKETS VENDIDOS \n";
print "=================================================================== \n";
open IN, "<D:/etc/ticketsven.txt" or die "ERROR: No puedo abrir el archivo: $!\n";
while ( $linea = <IN> ) {
    ( $numero, $snombre, $papellido, $sapellido ) = split( /:/, $linea, 20 );
    print "Numero de ticket: " . $numero . "    ACTIVIDAD: " . $actividad . "    LUGAR: " . $lugar . "    FECHA: " . $fecha ."    LUGAR COMPRA: " . $lugarcompra . "    PRECIO: " . $precio ."\n";
    
}
close IN;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Insertar registros de un archivo a otro

Insertar registros de un archivo a otro

Publicidad

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

Re: Insertar registros de un archivo a otro

¿Quién está conectado?