urosg/symlink-images-by-aspect-ratio
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added "unknown" as a possible apsect ratio.

Browse Source
This commit is contained in:
Uroš Golja
2016-11-13 22:36:35 +01:00
parent 9fe9c281ef
commit 3729d244f4
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
symlink-images-by-aspect-ratio.pl
View File

@@ -12,8 +12,8 @@ use Data::Dumper::Simple;
use Math::Round;
my $conf = {
src_dir => "./pics",
dst_dir => "./links",
src_dir => "./slike",
dst_dir => "./linki",
debug => 0,
};
@@ -66,7 +66,7 @@ my $ars = {};
my $files = {}; # a hashref that holds all the files, their exif data, and their calculcated aspect ratio
foreach my $f (@list) {
$count++;
msg_debug "Gathering info for image in file: '$f'\n";
msg "Gathering info for image in file: '$f'\n";
my $e = Image::EXIF->new($f);
my $exif = $e->get_image_info();
@@ -90,15 +90,16 @@ foreach my $f (@list) {
}
# Calculate aspect ratio and append it into the hash
my $ar;
if ($error_flag) {
msg "Unable to calculate aspect ratio for image '$f'. Skipping it.\n"
msg "Unable to calculate aspect ratio for image '$f'.\n";
$ar = "unknown";
}
else {
my $ar;
$ar = nearest(0.01, ($x > $y) ? $x / $y : $y / $x) unless $error_flag;
$ars->{$ar}++;
$files->{$f}->{ar} = $ar;
}
$ars->{$ar}++;
$files->{$f}->{ar} = $ar;
# Append the exif data into hash
$files->{$f}->{exif} = $exif;