Foro - Perl en Español

Hola a todos,

El caso es que tengo una duda muy básica sobre ficheros.

Tengo un fichero temporal (FILEOUT) que va aumentando en tamaño pues voy almacenando datos en él a partir de la información leída en FILEIN.

Cuando dicho fichero (FILEOUT) llega a un cierto número de lineas (7000 en el ejemplo más abajo), hago un volcado del contenido de dicho fichero a otro, y suprimo el contenido del mismo para empezar de cero, cerrando y abriendo el fichero con la opción '>'.

Lo que llevo hecho es lo siguiente:


Es decir, cierro el fichero temporal (FILEOUT), y lo vuelvo a abrir con la opcion ">" de forma que sobrescriba el contenido anterior.
El caso es que funciona, pero me gustaría saber si existe otra forma más sencilla y quizás más eficiente de hacerlo.

¡Gracias por adelantado!
¡Saludos!
Felipe

El tema es que estás haciendo un bucle de 7000 vueltas y eso es medio pesado...

Si usas esas comillas para hacer el 'cat', porque no la usas para hacer un 'cp' y luego con open '>' lo vacías... (fíjate que te falta el 'close' luego del open '>'...)

Y en vez de chequear que haya 7000 filas yo me fijaría por el peso del archivo... que lo calculas fácilmente con -s.


Espero que te sirva...

:adios:

Hola,

Hay un módulo que se llama File::Split que te puede dividir un archivo en varios archivos de x líneas o menos, quizá te sirva darle un vistazo y a lo mejor te dá una idea para atacar el problema desde otro angúlo.

Saludos

¡Gracias a todos por vuestros consejos!

De hecho, si no he entendido mal, File::Split sirve para, dado un fichero de entrada (un fichero "completo" en el sentido que contiene todos los datos a tratar), trocearlo en múltiples ficheros de salida, lo cual no es exactamente lo que deseo hacer.

En mi caso, mi fichero de entrada (FILEIN) NO es un fichero completo conteniendo TODOS los datos a tratar, sino que son pequeños ficheros (más de uno) que son generados cada 15 minutos. El contenido de dichos ficheros es añadido al fichero temporal del que hablé antes (FILEOUT), para luego ser eliminados. Por lo tanto, dicho fichero FILEOUT es un acumulativo de los datos obtenidos hasta el momento. Eso ya esta implementado.

Lo que intento hacer, es un "split" pero en tiempo real (para llamarlo de alguna manera). Es decir, cuando dicho fichero temporal alcanza un número de líneas determinado, vuelco su contenido a un fichero de salida, y luego vacío su contenido y pongo el contador a cero repitiendo dicha operación cuantas veces haga falta. Al final del día, mi objetivo es tener múltiples ficheros .txt en vez de un solo fichero temporal FILEOUT conteniendo la totalidad de los datos.

Espero no haberme enrollado demasiado, pero es que no me resulta fácil explicar el problema.
Gracias de todos modos. Pondré a prueba vuestras recomendaciones.

Por cierto Explorer: ¿Por qué es mucho mejor un cp que un cat? ¿Es quizás más eficiente?

Un cordial saludo,
Felipe

Es bastante menos pesado que consultar al sistema operativo para saber el tamaño del fichero.

wow !!! nunca me lo hubiese imaginado !!!

¿Y por qué no le falta el close? cuando abrís solo para vaciarlo ¿no hace falta cerrarlo?

Hoy aprendí 2 importantes lecciones

Saludos
PD: una pregunta, no puedes ir contando cada vez que le metes una línea al archivo, ¿cómo es la entrada de datos al archivo temporal?

explorer escribiste:Es bastante menos pesado que consultar al sistema operativo para saber el tamaño del fichero.

Qué tal explorer,

Estás en un error, es bastante MENOS pesado pedirle al SO que te indique el tamaño del archivo (hablamos del tamaño en bytes), ya que solo falta una llamada al sistema stat, el cual solo verifica el i-node del archivo que ya contiene una entrada con su tamaño actual en bytes, aparte de otros datos importantes.

Hacer una iteración de 7 mil elementos jamás será menos pesado que una simple llamada al sistema que NO realiza ningún calculo.

fgalves escribiste:Hola a todos,

El caso es que tengo una duda muy básica sobre ficheros.

Tengo un fichero temporal (FILEOUT) que va aumentando en tamaño pues voy almacenando datos en él a partir de la información leída en FILEIN.

Cuando dicho fichero (FILEOUT) llega a un cierto número de lineas (7000 en el ejemplo más abajo), hago un volcado del contenido de dicho fichero a otro, y suprimo el contenido del mismo para empezar de cero, cerrando y abriendo el fichero con la opción '>'.

Lo que llevo hecho es lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

while (my $l = <FILEIN>) {
    print FILEOUT $l;
    $counter++;
    if ($counter == 7000)
    {
        `cat $workingDirectory/$flatTmpProjFileName >$workingDirectory/output_$numero.txt`;
        close(FILEOUT);
        open(FILEOUT,">$fileout");
        $counter = 0;
        $numero++;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Es decir, cierro el fichero temporal (FILEOUT), y lo vuelvo a abrir con la opcion ">" de forma que sobrescriba el contenido anterior.
El caso es que funciona, pero me gustaría saber si existe otra forma más sencilla y quizás más eficiente de hacerlo.

¡Gracias por adelantado!
¡Saludos!
Felipe

Por otro lado, la solución que yo recomendaría para localizar la cantidad de líneas sería usando Tie::File, que sabe eficientemente como búscar cada línea y representarla en el array al que tiene amarrado, y simplemente verificar si existe el elemento 7 mil del arreglo, si así es, entonces ya puedes obtener dichos elementos. Después, ya podrías utilizar algún otro módulo para partir el archivo, o simplemente obtener la posición de la línea número 7 mil, y con un sysread copiar desde 0 hasta N bytes de la línea 7 mil al nuevo archivo.


Saludos,

monoswim escribiste:Si usas esas comillas para hacer el 'cat', porque no la usas para hacer un 'cp' y luego con open '>' lo vacías... (fíjate que te falta el 'close' luego del open '>'...)

Pues no sé si sea mejor, pero podría usar read con un buffer de 1024 para lograrlo: