EXIF-Datum als Dateinamen (gelöst) (Allgemeines zu Perl)

[thread]17918[/thread]

EXIF-Datum als Dateinamen [gelöst]

Tags: perl5 EXIF Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
cohama

2012-11-20 13:50

User since
2011-08-16
102 Artikel
BenutzerIn

Hallo zusammen,

ich möchte folgendes Szenario mittels Perl lösen. Angenommen ich habe einen Dateiordner mit einigen Bilddateien.
Jetzt möchte ich gern das Orginaldatum aus den EXIF-Meta-Informationen je Bilddatei auslesen.
Dieses Datum möchte ich in einem zweiten Schritt als neuen Namen für die Bilddatei nutzen.
Zum Schluss des Scripts hätte ich es gern, dass die Bilddateien jeweils einen Dateinamen mit dem EXIF-Datum haben.

Ist jemand so nett und hilft mir ein paar Code-Beispielen auf die Sprünge. Ich hoffe, dass ich genug hier im Forum gesucht habe und diese Lösung nicht übersehen habe.

Bye

PS: Ich hoffe, dass das Anliegen von mir deutlich geworden ist.
- +3 replies
- pq
  
  2012-11-20 14:13
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  versuch mal Image::Info, Image::ExifTool
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +2 replies
  - cohama
    
    2012-11-21 11:56
    
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Hallo zusammen,
    
    erstmal vielen Dank für die hilfreichen Tipps. Leider habe ich im Moment das Problem, sobald ich den Tag OriginalDate nutze, bekomme ich keine Information mehr vom Script zurück geschickt.
    Hat sich der Tag geändert?
    - GwenDragon
      
      2012-11-21 13:02
      
      User since
      2005-01-17
      14778 Artikel
      Admin1
      
      Laut https://metacpan.org/source/EXIFTOOL/Image-ExifToo... gibt es das Tag-ID OriginalDate.
      
      Wie verwendest du das bitte im Code?
      Zeig doch mal Code.
      
      //EDIT:
      Mal geraten: DateTimeOriginal meinst du in Wirklichkeit?
      Last edited: 2012-11-21 16:09:15 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- GwenDragon
  
  2012-11-20 15:55
  
  User since
  2005-01-17
  14778 Artikel
  Admin1
  
  Schau dir mal den Quellcode des Tools exiftool aus Image::ExifTool an. Oder frag bei uns nochmals nach, wenn du nicht weiter kommst. ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - cohama
    
    2012-11-21 07:57
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Guten Morgen,
    
    ick hab es soweit geschafft, dass das Script das Originaldatum der Bilddatei in der Variable mydate abspeichert.
    Wie schaffe ich es nun, dass ich den Dateinamen ändere?
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl -w # Version 0.1 ######################################## use File::Spec; use Image::ExifTool; #extract date from EXIF my @ioTagList = ('DateTimeOriginal'); my $exifTool = new Image::ExifTool; $exifTool->Options(DateFormat => "%Y-%m-%d-%H:%M:%S"); my $info = $exifTool->ImageInfo('Test.jpg', @ioTagList); my $mydate; foreach (keys %$info) { $mydate = $$info{$_}; print "$mydate \n"; }
    - Patterner
      
      2012-11-21 08:26
      
      User since
      2007-01-02
      25 Artikel
      BenutzerIn
      
      z.B. mit move() aus File::Copy
      “I’m working on it.”
    - +2 replies
    - Gast wer
      
      2012-11-21 10:39
      
      rename($old_filename,$new_filename)
      Last edited: 2012-11-21 10:44:31 +0100 (CET)
      - pq
        
        2012-11-21 10:45
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        am besten gleich, wie schon erwähnt, File::Copy verwenden. steht sogar in de doku zu rename
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-11-20 13:50.