Opened by Mo84 at 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
Last edited: 2015-11-13 00:17:40 +0100 (CET)
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)