Add scripts

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 11 insertions, 0 deletions

diff --git a/sort-images b/sort-images
new file mode 100755
index 0000000..8f64811
--- /dev/null
+++ b/sort-images
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+perl-rename -v 'BEGIN{use Image::ExifTool qw(ImageInfo); use Date::Parse; use Date::Format;}; $data = ImageInfo($_); $date = time2str("%Y-%m-%d", str2time($data->{FileModifyDate})); $_ = "$date/$_";' "$@"
+
+# the same in slow
+#for i in "$@"; do 
+  #[[ -d "$i" ]] && continue
+  #dir=$(exiftool "$i" | grep "File Modification Date/Time" | sed -rn "s/.*: ([0-9]{4}):([0-9]{2}):([0-9]{2}) .*/\1-\2-\3/p")
+  #mkdir -p "$dir"
+  #mv -nv "$i" "$dir/$(basename "$i")"
+#done