He probado a poner la ruta completa del fichero y me da el mismo resultado
¿A qué puede ser debido?Graciasªª
Besitos!!
-
- Publicidad
Fechas en perl
23 mensajes
• Página 2 de 3 • 1, 2, 3
Publicidad
por explorer » 2008-04-30 10:51 @494
Prueba esto y nos dices qué sale.
Using perl Syntax Highlighting
my $fichero = 'C:/Archivos de programa/Antivirus/dinfo.dat';
die "El fichero NO existe\n" if ! -e $fichero;
my @stat = stat($fichero);
die "No se pudo obtener información\n" if ! @stat;
foreach $i (0 .. $#stat) {
print "Valor $i\t$stat[$i]\n";
}
die "El fichero NO existe\n" if ! -e $fichero;
my @stat = stat($fichero);
die "No se pudo obtener información\n" if ! @stat;
foreach $i (0 .. $#stat) {
print "Valor $i\t$stat[$i]\n";
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por Reina » 2008-05-05 01:49 @117
Buenas explorer,
He probado el script que me pasaste y me dice que el fichero NO existe, pero después recorro la ruta y está ahí, no entiendo nada...
La ruta del .dat es 'C:\Archivos de programa\Archivos comunes\Symantec Shared\VirusDefs\dinfo.dat' ¿Puede ser que al tratarse del mismo antivirus para todo un dominio haya que tratarlo de distinta manera?
¡¡Gracias!!
He probado el script que me pasaste y me dice que el fichero NO existe, pero después recorro la ruta y está ahí, no entiendo nada...
La ruta del .dat es 'C:\Archivos de programa\Archivos comunes\Symantec Shared\VirusDefs\dinfo.dat' ¿Puede ser que al tratarse del mismo antivirus para todo un dominio haya que tratarlo de distinta manera?
¡¡Gracias!!
- Reina
- Perlero nuevo
- Mensajes: 18
- Registrado: 2008-04-25 06:47 @324
por explorer » 2008-05-05 02:18 @137
Pues... no tengo ni idea de qué es lo que puede estar pasando...
A la hora de poner caminos de ficheros, yo, cuando trabajaba en Windows, tenía la precaución de: ponerlo siempre entrecomillado simple y usar '/' en lugar de '\' (Perl sabe cuándo había que darle la vuelta.
En tu caso quedaría:
Otra cosa que puedes probar es ir haciendo chdir() para ir entrando poco a poco y ver si es que hay algún nivel de directorio o carpeta que por sus permisos no te deje entrar o leer el fichero.
Otra cosa importante y que se me ha pasado. Dentro de los die() anteriores, prueba a colocar la variable $! para que Perl te saque el error del sistema que ha ocurrido. Por ejemplo:
A la hora de poner caminos de ficheros, yo, cuando trabajaba en Windows, tenía la precaución de: ponerlo siempre entrecomillado simple y usar '/' en lugar de '\' (Perl sabe cuándo había que darle la vuelta.
En tu caso quedaría:
Using perl Syntax Highlighting
my $fichero = 'C:/Archivos de programa/Archivos comunes/Symantec Shared/VirusDefs/dinfo.dat';
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Otra cosa que puedes probar es ir haciendo chdir() para ir entrando poco a poco y ver si es que hay algún nivel de directorio o carpeta que por sus permisos no te deje entrar o leer el fichero.
Otra cosa importante y que se me ha pasado. Dentro de los die() anteriores, prueba a colocar la variable $! para que Perl te saque el error del sistema que ha ocurrido. Por ejemplo:
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por Reina » 2008-05-05 09:02 @418
Buenas, explorer:
¿A qué no sabes a quién le ha salido ya el script? Sí, sí, a mí, ¡¡ullueee!!
Muchas gracias por todo, la verdad es que sin vuestra ayuda no lo habría conseguido.
Sólo una pregunta más:
La fecha de actualización que me sale del antivirus, corresponde con la fecha de modificación del archivo .dat (la que podemos obtener si miramos las propiedades del archivo), en cambio, si abrimos éste, podemos comprobar que la fecha de actualización que muestra es anterior a la que teníamos. Hay alguna manera de abrir el archivo para coger esa fecha en vez de la que viene en las propiedades (que corresponde a la hora en la que se encendió el ordenador por la mañana) y modificarla, ya que aparece como CurDefs=20080504.003.
¡¡Gracias!!
¿A qué no sabes a quién le ha salido ya el script? Sí, sí, a mí, ¡¡ullueee!!
Muchas gracias por todo, la verdad es que sin vuestra ayuda no lo habría conseguido.
Sólo una pregunta más:
La fecha de actualización que me sale del antivirus, corresponde con la fecha de modificación del archivo .dat (la que podemos obtener si miramos las propiedades del archivo), en cambio, si abrimos éste, podemos comprobar que la fecha de actualización que muestra es anterior a la que teníamos. Hay alguna manera de abrir el archivo para coger esa fecha en vez de la que viene en las propiedades (que corresponde a la hora en la que se encendió el ordenador por la mañana) y modificarla, ya que aparece como CurDefs=20080504.003.
¡¡Gracias!!
- Reina
- Perlero nuevo
- Mensajes: 18
- Registrado: 2008-04-25 06:47 @324
por explorer » 2008-05-05 12:10 @548
Sería interesante saber qué pasaba...
En cuanto a lo de leer el interior, no veo problema si, a) el fichero se puede leer, b) se sabe la posición de lo que quieres leer, c) el formato de lectura (texto, binario, fijo, etc.) d) el significado de lo que lees. Por ejemplo, está claro qué significa 20080504, pero, ¿qué significa 003?
En cuanto a lo de leer el interior, no veo problema si, a) el fichero se puede leer, b) se sabe la posición de lo que quieres leer, c) el formato de lectura (texto, binario, fijo, etc.) d) el significado de lo que lees. Por ejemplo, está claro qué significa 20080504, pero, ¿qué significa 003?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por Reina » 2008-05-06 04:51 @244
Buenos días.
La verdad es que no sé bien lo que pasaba, puede ser que la respuesta esté en los permisos que tenía sobre el archivo, pero ya está solucionado
Te detallo los apartados que me planteas:
a) el fichero se puede leer
b) no sé a qué te refieres con la posición que quiero leer
c) el formato de la lectura es en modo numérico
d) el significado de lo que quiero leer es 2008 -> año, 05 -> mes, 04 -> día, el 003 corresponde a la revisión del antivirus, pero eso no me interesa, ni tampoco el texto que viene antes de CurDefs=
Supongo que tendré que leer el archivo, coger la fecha, pasarla a formato ddmmaaaa y comparar, ¿no? pero no sé cómo se hace.
¡¡Gracias!!
La verdad es que no sé bien lo que pasaba, puede ser que la respuesta esté en los permisos que tenía sobre el archivo, pero ya está solucionado
Te detallo los apartados que me planteas:
a) el fichero se puede leer
b) no sé a qué te refieres con la posición que quiero leer
c) el formato de la lectura es en modo numérico
d) el significado de lo que quiero leer es 2008 -> año, 05 -> mes, 04 -> día, el 003 corresponde a la revisión del antivirus, pero eso no me interesa, ni tampoco el texto que viene antes de CurDefs=
Supongo que tendré que leer el archivo, coger la fecha, pasarla a formato ddmmaaaa y comparar, ¿no? pero no sé cómo se hace.
¡¡Gracias!!
- Reina
- Perlero nuevo
- Mensajes: 18
- Registrado: 2008-04-25 06:47 @324
por explorer » 2008-05-06 05:31 @271
Con lo de la posición me refiero a en qué lugar se encuentra lo que quieres leer dentro del fichero.
Lo del formato numérico nunca lo había oído. O es alfanumérico o binario.
Para leer el fichero tienes varios ejemplos en estos foros. Luego tienes que sacar la fecha, que lo puedes hacer con una expresión regular, y luego, para hacer la comparación, pues puedes usar la función timegm() o timelocal() del módulo Time::Local. De esa manera lo estarás pasando a número de segundos desde el Epoch, y podrás hacer la comparación como antes.
Lo del formato numérico nunca lo había oído. O es alfanumérico o binario.
Para leer el fichero tienes varios ejemplos en estos foros. Luego tienes que sacar la fecha, que lo puedes hacer con una expresión regular, y luego, para hacer la comparación, pues puedes usar la función timegm() o timelocal() del módulo Time::Local. De esa manera lo estarás pasando a número de segundos desde el Epoch, y podrás hacer la comparación como antes.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por Reina » 2008-05-06 06:08 @297
¡¡Ah!! El contenido del fichero .dat es el siguiente:
Así que a mi lo que me interesa es sólo el medio de la segunda línea.
Con respecto a lo del formato, tienes razón, es alfanumérico, que se me va un poco la cabeza
Gracias.
- Código: Seleccionar todo
[DefDates]
CurDefs=20080505.003
LastDefs=20080504.003
Así que a mi lo que me interesa es sólo el medio de la segunda línea.
Con respecto a lo del formato, tienes razón, es alfanumérico, que se me va un poco la cabeza
Gracias.
- Reina
- Perlero nuevo
- Mensajes: 18
- Registrado: 2008-04-25 06:47 @324
por explorer » 2008-05-06 07:26 @352
Using perl Syntax Highlighting
#!/usr/bin/perl -l
use warnings;
use strict;
use Time::Local;
my $fecha_ultima_actualizacion;
open my $fh, q{<}, 'kk.txt' or die;
my $fichero;
{ # Leemos el fichero entero en una variable escalar
# Para eso, indefinimos el valor de la variable $/
# para que deje de leer por líneas
local $/ = undef;
$fichero = <$fh>;
}
close $fh;
if ( my ($anno, $mes, $dia) = $fichero =~ /CurDefs=(....)(..)(..)/ ) {
$fecha_ultima_actualizacion = timelocal(0,0,0,$dia,$mes-1,$anno-1900);
}
print 'Diferencia entre la última fecha de actualización y la actual:';
print time() - $fecha_ultima_actualizacion, ' segundos';
use warnings;
use strict;
use Time::Local;
my $fecha_ultima_actualizacion;
open my $fh, q{<}, 'kk.txt' or die;
my $fichero;
{ # Leemos el fichero entero en una variable escalar
# Para eso, indefinimos el valor de la variable $/
# para que deje de leer por líneas
local $/ = undef;
$fichero = <$fh>;
}
close $fh;
if ( my ($anno, $mes, $dia) = $fichero =~ /CurDefs=(....)(..)(..)/ ) {
$fecha_ultima_actualizacion = timelocal(0,0,0,$dia,$mes-1,$anno-1900);
}
print 'Diferencia entre la última fecha de actualización y la actual:';
print time() - $fecha_ultima_actualizacion, ' segundos';
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
23 mensajes
• Página 2 de 3 • 1, 2, 3
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados