diff options
| -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 |