Foro - Perl en Español

por **aprendizGC** » 2016-08-31 04:30 @229

Buenos días a todos.

Estoy intentando realizar un script que me historifique los ficheros de registro que mi proceso va creando.

Resulta que tengo un productor y un consumidor, y los dos van escribiendo en el fichero que se crea por día, con el siguiente formato: aaaa_mm_dd_Log.txt.

El problema me surge a la hora de cambiar de día. El productor cambia la escritura al fichero correspondiente, pero el consumidor sigue escribiendo en el fichero del día anterior.

La forma en la que lo estoy haciendo es la siguiente:

1- Una función de escritura en log:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Escribir_Log()
{
        # Recogida de la ristra
        my ($ristraLog) = @_;
 
        my ($fechaHora, $fecha, $hora) = &fechaHora();
        my $aux_nombre_fichero_Log = $fecha.$nombre_fichero_Log;
 
        printf $fichLog $aux_nombre_fichero_Log;
 
        if( ! (-e ($path.$aux_nombre_fichero_Log)) )
        {
                &Abrir_Fichero_Log();           
        }
 
 
        if( ($fichLog != undef) && ((length $ristraLog) > 0) )
        {
                #flock(\*$fichLog, LOCK_EX);        # solicitamos el bloqueo, y de forma esclusiva
                #seek(\*$fichLog, 0, SEEK_END);     # nos colocamos al final del archivo
                #my ($fechaHora,$fecha,$hora) = &fechaHora();
                #$ristraLog = $hora.$ristraLog;
                #print $fichLog $ristraLog;                # se escribe en el fichero.
                #flock(\*$fichLog, LOCK_UN);        # desbloqueamos el acceso
 
                flock(\*$fichLog, LOCK_EX) or die $!;        # solicitamos el bloqueo, y de forma esclusiva
                # flock(\*$fichLog, LOCK_EX);        # solicitamos el bloqueo, y de forma esclusiva
                seek(\*$fichLog, 0, SEEK_END) or die $!;     # nos colocamos al final del archivo
                # seek(\*$fichLog, 0, SEEK_END);     # nos colocamos al final del archivo
                my ($fechaHora,$fecha,$hora) = &fechaHora();
                $ristraLog = $hora.$ristraLog;
                print $fichLog $ristraLog;                                       # se escribe en el fichero.
                flock(\*$fichLog, LOCK_UN) or die $!;        # desbloqueamos el acceso
                #flock(\*$fichLog, LOCK_UN);        # desbloqueamos el acceso
        }
 
} # Fin Escribir_Log
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Y 2- la función de apertura del fichero:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Abrir_Fichero_Log()
{
        my ($fechaHora, $fecha, $hora) = &fechaHora();
        my $aux_nombre_fichero_Log = $fecha.$nombre_fichero_Log;
 
        #if( ! (-e ($path.$aux_nombre_fichero_Log)) )
        #{
                # Si existía alguno abierto, se cierra y se abre otro
        #       if($fichLog != undef)
        #       {
                        # NOTA: No se utiliza el bloqueo porque al intentar desbloquear, después de cerrar, da error porque 
                        #               pone la variable "fichLog" como undef, incluso antes de llegar a la asignación a pelo.
        #               flock(\*$fichLog, LOCK_EX);
        #               close($fichLog);
        #               $fichLog = undef;
        #       }
        #}
        # Se abre el nuevo
 
        #if($fichLog != undef)
        #{
        #       flock(\*$fichLog, LOCK_EX);
        #}
 
        #open($fichLog, ">>$aux_nombre_fichero_Log");
        #seek(\*$fichLog, 0, SEEK_END);
 
        #if($fichLog != undef)
        #{
        #       flock(\*$fichLog, LOCK_UN);
        #}
 
        #printf $fichLog $fechaHora."Inicio Log::v1\n";
 
        #printf $fichLog $aux_nombre_fichero_Log;
 
 
        # 2016-08-31
        #flock(\*$fichLog, LOCK_EX);
        open($fichLog, ">>$aux_nombre_fichero_Log");
        #flock(\*$fichLog, LOCK_UN);
 
        printf $fichLog $fechaHora."Inicio Log::v1\n";
 
        printf $fichLog $aux_nombre_fichero_Log;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Les estaría agradecido si me ayudaran a ver dónde está el error.

Gracias.

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

Creo que la línea 9 del primer código debería estar en la 15, para que ese print se realice en el nuevo archivo.

De todas maneras... yo lo que haría sería hacer un close del archivo, dentro de Abrir_Fichero_Log().

Por ejemplo, hacer un if() para ver si if(defined $fichLog), y en ese caso hacer un close $fichLog, antes de abrir el nuevo archivo.

No sé... lo veo un pelín lioso.

por **aprendizGC** » 2016-09-05 04:01 @209

Buenos días, explorer, y muchas gracias por la bienvenida, y por la respuesta rápida...

Voy a probar la solución que indicas... aún así, ¿cuál sería otra solución viable?

Gracias.

Saludos.

por **explorer** » 2016-09-05 16:55 @747

Es que aún no lo veo claro... Cuando hablas de productos y consumidor, ¿te refieres a dos procesos distintos o a dos métodos o subrutinas del mismo proceso?

por **aprendizGC** » 2016-09-06 04:02 @210

Buenos días:

Me refiero al problema típico de concurrencia de productor/consumidor.

Lo que he hecho ha sido crear dos hilos:

threads->create(\&PRODUCTOR);
threads->create(\&CONSUMIDOR);

Y mi intención es que los dos escriban en el mismo fichero, y para ello, utilizar las funciones de acceso restringido a los ficheros.
Pero no está funcionando.

No entiendo por qué el consumidor incluso con el nombre del fichero correcto, cambiándolo de día incluso, no escribe en el fichero correcto.

Entre ayer y hoy, día 05 y día 06, el productor creó el fichero "2016-09-06" con esta entrada "2016/09/06 00:00:09 Inicio Log::v1"

El consumidor, ejecutando la función "Escribir_Log", debería realizar la comprobación de la existencia del fichero, y debería ser verdadera.
Pero no sé por qué el consumidor sigue escribiendo en el fichero del día "2016-09-05".

¿Puede ser porque aunque el productor cierre el fichero, para el consumidor continúe abierto?

Gracias.

Saludos.

por **explorer** » 2016-09-09 14:42 @654

Si los hilos no comparten el filehandle, entonces cada uno mantiene su propia conexión con el archivo abierto, así que sí: cada uno debe abrirlo y cerrarlo por separado.

Otra cosa es que los hilos compartan el filehandle. En ese caso, si se comparte la variable entre los hilos, uno de ellos se puede encargar de abrirlo y cerrarlo, y el otro solo tiene que preguntar si el filehandle es válido antes de imprimir nada hacia él.

Foro - Perl en Español

Historificación de Logs

Historificación de Logs

Publicidad

Re: Historificación de Logs

Re: Historificación de Logs

Re: Historificación de Logs

Re: Historificación de Logs

Re: Historificación de Logs

¿Quién está conectado?