• Publicidad

Cómo averiguo la fecha de creación de una foto

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Cómo averiguo la fecha de creación de una foto

Notapor atlas » 2010-09-16 09:46 @448

¡Hola!

Necesito saber la fecha en la que la otra persona se tomó la foto.

El tema es que me la mandó en un mail y cuando la bajo la fecha de creación me aparece en el momento en el que se bajó.

¿Existe alguna forma de saber cuándo la otra persona la creó en su PC?

Desde ya, muchas gracias...
atlas
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2010-09-16 09:40 @444

Publicidad

Re: Cómo averiguo la fecha de creación de una foto

Notapor explorer » 2010-09-16 11:39 @527

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

Si la foto es de un formato conocido, por ejemplo jpeg, este tipo de ficheros guarda, además de la imagen, una "metainformación", en la que puede tener almacenado varias informaciones, entre ellas, la fecha en la que fue tomada.

Módulos en Perl, como Image::ExifTool, tiene todo lo necesario para extraer esa metainformación. Viene también un listado de los tipos de ficheros que puede contener esa información.

Seguro que también puedes encontrar programas o utilidades en tu sistema operativo, que te dé esa información. Por ejemplo, en Linux, esta información la suele mostrar el propio navegador de ficheros.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Cómo averiguo la fecha de creación de una foto

Notapor ficovh » 2010-09-16 11:51 @536

Hola.

Si estas usando algún sistema tipo Unix, la forma más fácil es usar la utilería Jhead (http://www.sentex.net/~mwandel/jhead/)

Si quieres usar Perl, entonces: http://search.cpan.org/~ccpro/Image-EXIF-1.00.3/EXIF.pm es tu amigo.

Permíteme tomar el ejemplo demo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2. #
  3. use Image::EXIF;
  4. use Data::Dumper;
  5.  
  6. my $exif = new Image::EXIF("img1.jpg");
  7. my $other_info = $exif->get_other_info();   #hash
  8.  
  9. print $exif->error ?
  10.         $exif->errstr : Dumper($other_info);
  11.  
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
ficovh
Perlero nuevo
Perlero nuevo
 
Mensajes: 13
Registrado: 2007-04-11 20:37 @900


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 21 invitados