Thread Probleme beim Einlesen mit Image::ExifTool (9 answers)
Opened by Mo84 at 2015-11-13 00:01

GwenDragon
 2015-11-13 10:43
#182894 #182894
User since
2005-01-17
14774 Artikel
Admin1
[Homepage]
user image
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

View full thread Probleme beim Einlesen mit Image::ExifTool