Probleme beim Einlesen mit Image::ExifTool (Allgemeines zu Perl)

[thread]19887[/thread]

Probleme beim Einlesen mit Image::ExifTool

Tags: perl5 Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+10 replies
Gast Mo84

2015-11-13 00:01
Hi,

ich befasse mich momentan mit Image::ExifTool - das Ganze klappt soweit auch ganz gut. Allerdings habe ich ein merkwürdiges Problem. Ich habe anfangs zu Testzwecken immer mit Bildern in meinem Projektverzeichnis gearbeitet und hatte keine Probleme. Nun ist mir aufgefallen, dass von ExifTool - egal welches Verzeichnis ich vorher angebe - nach wie vor mein Projektverzeichnis angezogen wird. Ich habe ehrlich gesagt noch nicht viel Erfahrung mit PERL - ich hoffe das ich irgendwas banales vergessen habe Kann mir da vielleicht jemand helfen? Anbei ein Beispielcode. Er greift sich immer die "Landscape_2.jpg" aus dem Projektverzeichnis und nicht aus dem angegebenen Pfad..

Wäre super wenn mir da jemand helfen könnte ich befürchte ich jage gespenster :-)

Gruß,Mo
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

opendir( DIR, 'c:\\test\\' ); @files = readdir(DIR); closedir(DIR); my $exifTool; foreach $file (@files) { next if $file !~ /\.jpg$/i; print "processing file '$file'\n"; $exifTool = new Image::ExifTool; my $info = $exifTool->ImageInfo($file); foreach $key ( keys %$info ) { print "$file => $key=> $$info{$key}\n"; } } my $info = $exifTool->ImageInfo("Landscape_2.jpg"); $exifTool->SetNewValue( "Model", "0815333" ); ( $success, $errStr ) = $exifTool->WriteInfo("Landscape_2.jpg"); print "SUCCESS: $success\n"; print "ERROR: $errStr\n";
Last edited: 2015-11-13 00:17:40 +0100 (CET)
- +2 replies
- betterworld
  
  2015-11-13 00:20
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Readdir gibt immer nur die Basenames zurück, also keine vollen Pfade. Du müsstest also $file entsprechend bearbeiten, dass es mit c:\test anfängt.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - Raubtier
    
    2015-11-13 09:08
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Betterworld hat schon auf die Ursache hingewiesen.
    
    Vielleicht noch ein paar andere Dinge:
    
    1. Man könnte den Teil, der die Dateien holt, in eine Funktion auslagern, etwa so:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    sub getFilesToProcess { my $path = shift; opendir my $dh, $path or die "Opendir fehlgeschlagen für $path!\n"; return map { "$path/$_" } grep /\.jpg$/i, readdir $dh; }
    
    Im folgenden fällt dann auf, dass du Anzahl-Dateien-Mal ein Image::ExifTool erzeugst, allerdings in eine globale Variable. Das erscheint mir nicht sinnvoll. Insbesondere, da nach der Schleife über die Dateien das zuletzt erzeugte Objekt weiterbenutzt wird.
- +7 replies
- GwenDragon
  
  2015-11-13 10:43
  User since
  2005-01-17
  14774 Artikel
  Admin1
  Mit File::Find kannst du doch auch nett bestimmet Dateien finden. Wozu das oldschool opendir?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  
  use Image::ExifTool; use File::Find; my $exifTool; # search and find File::Find::find ( # für jede Datei im Verzeichnis rufe diese Sub auf sub { my $file = $File::Find::name; if ($file =~ /\.jpg$/i) { say "$file found"; $exifTool = Image::ExifTool->new; my $info = $exifTool->ImageInfo($file); foreach my $key ( keys %$info ) { print "$file => $key=> $$info{$key}\n"; } } }, # in Verzeichnis C:\test\ 'C:/test/' );
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - Raubtier
    
    2015-11-13 11:49
    
    User since
    2012-05-04
    1076 Artikel
    BenutzerIn
    
    Aber File::Find ist doch ein Scan des Verzeichnisbaums, das ist also was anderes als Dateien aus einem Verzeichnis zu lesen, denn es bezieht doch Unterverzeichnisse mit ein.
    
    Warum ist "opendir" oldschool?
    - +3 replies
    - GwenDragon
      
      2015-11-13 14:47
      
      User since
      2005-01-17
      14774 Artikel
      Admin1
      
      Aber wenn es Leute so lernen sollen, bitte. Ich würde das Vorgehen so nicht mehr Anfängern zeigen.
      
      Ich empfinde opendir zu verwenden, dann die Dateien isn Array zu lesen, danach aus dem Array zu fischen und dann zu matchen als Oldschool.
      Warum keien exitenten Module vwerenden?
      
      Das ist so á la 2004 als würde man im eigenen Programm CGI-Parameter einlesen, den Querystring nach & splitten und dann die Wertepaare nach = splitten.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - Raubtier
        
        2015-11-13 15:58
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Ich empfinde es als Resourcenverschwendung, wenn ich nur ein Verzeichnis einlesen will, dann aber erst einmal alle Sub-Verzeichnisse einlese und dann noch wegfiltern muss (das machst du nicht, das fehlt bei dir).
        
        Wenn, dann würde ich File::Find::Rule mit maxdepth(1) nehmen, dann hat man wenigstens nicht die Ineffizienz drin, also so:
        
        Code (perl): (dl )
        
        say for File::Find::Rule->maxdepth(1)->file()->name(qr/\.jpg$/i)->in("/suchverzeichnis")
        
        Aber ob das wirklich einfacher ist - vielleicht sogar einfacher als
        
        Code (perl): (dl )
        
        say for </verzeichnis/*.jpg>
        
        ?
        Last edited: 2015-11-13 16:03:13 +0100 (CET)
        
        GwenDragon
        
        2015-11-13 18:01
        
        User since
        2005-01-17
        14774 Artikel
        Admin1
        
        Von der Effiziens ist natürlich die opendir.
        
        Der Datei-glob ginge auch, aber dafür die Shell/Command bemühen?
        
        Muss jeder selbst wissen, auf was es ankommt.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast wer
    
    2015-11-13 17:04
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    for my $file (glob('C:/test/*.jpg')) { print "$file found\n"; my $info = Image::ExifTool->new()->ImageInfo($file); foreach my $key ( keys %$info ) { print "$file => $key=> $$info{$key}\n"; } }
    
    Last edited: 2015-11-13 17:18:30 +0100 (CET)
  - betterworld
    
    2015-11-13 18:41
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    Ich finde das auch alles Oldschool :) Ich kann nur wieder Path::Class empfehlen:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    use Path::Class; my $dir = dir("c:\\test"); my @jpegs = grep {$_->basename =~ /[.]jpg$/} $dir->children; say for @jpegs;
    
    Ausgabe:
    
    Code: (dl )
    
    1 2 3
    
    c:\test\eins.jpg c:\test\zwei.jpg ...
    
    Das Problem ist oft leider wirklich, dass man von TIMTOWTDI erschlagen wird und die "Standardmethode" ohne Module wirklich Oldschool ist. Das macht es halt schwer für Anfänger.
    
    Update: glob() ist auch sehr nett und kurz, hat aber zum Beispiel das Problem, dass es bei fehlenden Permissions ganz stillschweigend einfach eine leere Liste zurückgibt...
    Last edited: 2015-11-13 18:46:19 +0100 (CET)
    Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2015-11-13 00:01.