Opened by Mo84 at 2015-11-13 00:01
User since
2012-05-04
1054 Artikel
BenutzerIn
2012-05-04
1054 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:
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.
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.