Foro - Perl en Español

Buenas Explorer,

He probado a poner la ruta completa del fichero y me da el mismo resultado ¿A qué puede ser debido?

Graciasªª

Besitos!!

Prueba esto y nos dices qué sale.

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!!

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:

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!!

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?

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!!

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.

¡¡Ah!! El contenido del fichero .dat es el siguiente:

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.