diff options
| author | Florian Pritz <bluewind@xinu.at> | 2017-12-02 23:05:16 +0100 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2017-12-02 23:05:16 +0100 |
| commit | 24dc561ded664c9e963358574f3406257389a4ce (patch) | |
| tree | 2a5d8e496b7567d1875262d5e05a623e76c2de6c /sort-images | |
| parent | 3f10f46abecc2715d3c4a69482d4b7658949a3e0 (diff) | |
| download | bin-24dc561ded664c9e963358574f3406257389a4ce.tar.gz bin-24dc561ded664c9e963358574f3406257389a4ce.tar.xz | |
sort-images: Use correct modification date
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'sort-images')
| -rwxr-xr-x | sort-images | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sort-images b/sort-images index 8f64811..b187301 100755 --- a/sort-images +++ b/sort-images @@ -1,6 +1,6 @@ #!/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/$_";' "$@" +perl-rename -v 'BEGIN{use Image::ExifTool qw(ImageInfo); use Date::Parse; use Date::Format;}; $data = ImageInfo($_); $date = time2str("%Y-%m-%d", str2time($data->{ModifyDate})); $_ = "$date/$_";' "$@" # the same in slow #for i in "$@"; do |