photo-stats

commit cd7f7e95511224a22225c5c7273d672800a0357e
parent bf93f019255c6ec38549d4ad61af062c05422ce6
Author: René Wagner <rwagner@rw-net.de>
Date:   Wed, 29 Jul 2020 21:33:22 +0200

use -fast for exiftool

Diffstat:
M
phosta.pl
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/phosta.pl b/phosta.pl
@@ -49,7 +49,7 @@ sub get_stats
 
     say "Scanning $destination_dir for files...";
 
-    my $cmd = "exiftool -r -m -f -p '\$filepath##\$make##\$model##\$lens##\$lensmodel##\$focallength##\$focallengthin35mmformat##\$aperture##\$exposuretime##\$iso##\$flash##\$datetimeoriginal' -d \"%Y-%m-%d %H:%M:%S\" -ext jpg " . $destination_dir;
+    my $cmd = "exiftool -fast2 -r -m -f -p '\$filepath##\$make##\$model##\$lens##\$lensmodel##\$focallength##\$focallengthin35mmformat##\$aperture##\$exposuretime##\$iso##\$flash##\$datetimeoriginal' -d \"%Y-%m-%d %H:%M:%S\" -ext jpg " . $destination_dir;
     my @lines = qx($cmd);
 
     my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 })