家にあった古いアルバムをデジタル化した話

01. 業者さんに写真データーのデジタル化を依頼    
02. 納品データーのチェック                      
03. 重複データーを除く                          
04. 時系列に並び替えてグルーピングする          
05. Apple Shared albums に写真をアップロードする

01 アルバムをページごとにすべてデジカメで写真を撮る
02 アルバムから写真をべりべりはがす
03 アルバムごとの写真の枚数をエクセルに記入する
04 業者さんに発送

01 納品データーのファイル構成を確認
02 枚数のチェック
03 以前に控えたアルバムの写真とつきあわせ

納品データー/
├── DVD1
│   ├── _インデックス
│   └── バラ写真
│       ├── BA001
│       |   ├── 色補正前データー
│       |   |   ├── BA001_0001.jpg
│       |   |   ├── BA001_0002.jpg
│       |   |   └── ...
│       |   └── 色補正後データー
│       |       ├── BA001_0001.jpg
│       |       ├── BA001_0002.jpg
│       |       └── ...
│       └── BA010
├── DVD2
│   ├── _インデックス
│   └── バラ写真
│       ├── BA011
│       ├── ...
│       └── BA029
├── DVD3
│   ├── _インデックス
│   └── フィルム
│       ├── SL001
│       |   ├── 色補正前データー
│       |   |   ├── SL001_0001.JPG
│       |   |   ├── SL001_0002.JPG
│       |   |   └── ...
│       |   └── 色補正後データー
│       |       ├── SL001_0001.JPG
│       |       ├── SL001_0002.JPG
│       |       └── ...
│       └── SL050
└── DVD4
    ├── _インデックス
    ├── フィルム
    │   ├── SL051
    │   ├── ...
    │   └── SL090
    └── ポケットフィルム
        ├── PF001
        |   ├── 色補正前データー
        |   |   ├── PF001_0001.JPG
        |   |   ├── PF001_0002.JPG
        |   |   └── ...
        |   └── 色補正後データー
        |       ├── PF001_0001.JPG
        |       ├── PF001_0002.JPG
        |       └── ...
        ├── ...
        └── PF005

#!/usr/bin/env bashfunction foo (){local folder=$1local path=${HOME}/Desktop/albums/${folder}for d in$(find $path-type d)do

      local cnt=$(ls"$d" | grep-e'jpg'-e'JPG' | wc-l)if[!$cnt=="0"];then
        echo$d" ---> "$cnt\
          | grep-e'BA'-e'SL'-e'PF'\
          | sed-e's|'${HOME}'/Desktop/albums||g'fi

    done}

foo DVD1 | sort
foo DVD2 | sort
foo DVD3 | sort
foo DVD4 | sort

/DVD1/バラ写真/BA001/色補正前のデータ --->  53
/DVD1/バラ写真/BA001/色補正後のデータ --->  53
/DVD1/バラ写真/BA002/色補正前のデータ --->  86
...

納品データー/
├── BA
|   ├── BA001
|       ├── BA001_0001.JPG
├── SL
|   ├── SL001
|       ├── SL001_0001.JPG
└── PF
    ├── PF001
        ├── PF001_0001.JPG

01 衝(main)となる写真種別を決める
02 重複写真をのぞく（アプリを使用する）
03 重複写真をのぞく（官能評価でおこなう）

Shared albums に送りたい写真を選択
> 右クリック
> Shared
> Shared Albums 

同一日時の写真はランダムに追加される

foo01.jpg 1983:01:01 12:11:42
foo02.jpg 1983:10:10 12:11:42
foo03.jpg 1983:01:01 12:11:42

foo01.jpg 1983:01:01 00:00:01
foo02.jpg 1983:10:10 00:00:03
foo03.jpg 1983:01:01 00:00:02

$ brew install exiftool

// 現状確認
$ exiftool -alldates foo.jpg 
Date/Time Original              : 1987:03:22 00:00:00
Create Date                     : 1987:03:22 16:14:50
Modify Date                     : 1987:03:22 16:14:50

// 日時を変更
$ exiftool -alldates="2999/01/01 00:00:01" foo.jpg 
    1 image files updated

// 変更されているか確認
$ exiftool -alldates foo.jpg
Date/Time Original              : 2999:01:01 00:00:01
Create Date                     : 2999:01:01 00:00:01
Modify Date                     : 2999:01:01 00:00:01

1. 1stソートキーを日時、2ndソートキーをファイル名にしてソートする
2. 時刻をリセット（`00:00:00`）にする
3. ソートした順に１秒ずつ足していく

$ exiftool --help

# Vimを立ち上げて$ vim

" Manコマンドで読みたいコマンド名を指定する: Man exiftool

1. 1stソートキーを日時、2ndソートキーをファイル名にしてソートする
2. 時刻をリセット（00:00:00）にする
3. ソートした順に１秒ずつ足していく

SYNOPSIS
   Reading
          exiftool [OPTIONS] [-TAG...] [--TAG...] FILE...

-sort                            Sort output alphabetically

-sort, --sort
    Sort output by tag description, or by tag name if the -s option is
    used.  When sorting by description, the sort order will depend on

-fileOrder[-]TAG
        Set file processing order according to the sorted value of the
        specified TAG.  For example, to process files in order of date:

            exiftool -fileOrder DateTimeOriginal DIR

        Additional -fileOrder options may be added for secondary sort
        keys.  Numbers are sorted numerically, and all other values are
        sorted alphabetically.  The sort order may be reversed by
        prefixing the tag name with a "-"(eg. "-fileOrder -createdate").
        Print conversion of the sorted values is disabled with the -n
        option, or a "#" appended to the tag name.  Other formatting
        options (eg. -d) have no effect on the sorted values.  Note that
        the -fileOrder option has a large performance impact since it
        involves an additional processing pass of each file.

TAGでソートするよ
追加で -fileOrder 書いたら入れ子のソート（2nd sort）になるかもね

$ exiftool \-filename\-fileorder datetimeoriginal \-fileorder filename

function sortedFilepathList (){#{{{# （その１）ソートされたファイルパスのリストを作成# ExifToolのparamを配列に書くdeclare-aarrFileOrder=(-quiet-fast2-s3-filename-fileorder datetimeoriginal
    -fileorder filename
  )# Date/Time Originalの日時でソートされたファイルパスのリストを変数にいれるecho$(echo*jpg | xargs exiftool "${arrFileOrder[@]}")}#}}}function resetAllTime (){#{{{# （その２）時刻をリセットする# ExifToolのparamを配列に書くdeclare-aarrReset=(-quiet-fast2-s3-d'%Y:%m:%d 00:00:00'-overwrite_original_in_place"-DateTimeOriginal<DateTimeOriginal")# Date/Time Originalの時刻をゼロにリセットするecho*jpg | xargs exiftool "${arrReset[@]}"}#}}}function addOneSecond (){#{{{# （その３）時刻を１秒ずつ進めるlocal baseStr="-quiet -fast2 -s3 -overwrite_original_in_place -DateTimeOriginal+=0:0:"declare-alocal arrFPList=($fpList)local len=$(("${#arrFPList[@]}"-1))for idx in$(seq 0 $len);do
    local fileName="${arrFPList[(($idx))]}"local orderedNumber=$idx
    exiftool $fileName$baseStr$idxdone}#}}}function mainImpl (){#{{{# 写真のあるフォルダに移動local fld=$1cd$fld# （その１）ソートされたファイルパスのリストを作成local fpList=$( sortedFilepathList )# （その２）時刻をリセットする
  resetAllTime

  # （その３）時刻を１秒ずつ進める
  addOneSecond

}#}}}function main (){#{{{# フォルダを指定するlocal fld=$HOME/Desktop/tmptmp

  export-f sortedFilepathList
  export-f resetAllTime
  export-f addOneSecond
  export-f mainImpl
  find $fld-type d | xargs -I % bash -c"mainImpl %"}#}}}

main

$ time bash foo.bash

real    9m2.675s
user    7m19.833s
sys     1m14.571s

共有アルバムを使えば、
自分で選んだ家族や友人とだけ写真やビデオを共有でき、
相手にも写真、ビデオ、コメントを投稿してもらえます。

// （注）callmekohei のイメージです
アップルが写真データーの保存用に貸してくれるサーバーのこと
iCloudサーバーに保存した写真データーのみ shared albums 用のサーバーにコピーすることができる

openSystem.IOopenSystem.Text.RegularExpressionsletSrcHDD_="/Users/callmekohei/Desktop/albums"letDstHDD_="/Users/callmekohei/tmp4"// コピーしたい写真データーのリストを作成するletsrcJPGs()=["DVD1";"DVD2";"DVD3";"DVD4"]|>List.map(funs->Directory.GetFiles(SrcHDD_+"/"+s,"*",SearchOption.AllDirectories)|>Array.filter(fun(s:string)->s.Contains("色補正後のデータ")))// コピー元のファイルパスとコピー先のファイルパスを組み（タプル）にしたリストを作成するletdstJPGs()=srcJPGs()|>List.map(funarr->arr|>Array.map(funsrcPath->letdestinateFilePath=Regex.Replace(srcPath,@"色補正後のデータ/","")|>funs->Regex.Replace(s,SrcHDD_+@"/DVD\d/バラ写真",DstHDD_+"/BA")|>funs->Regex.Replace(s,SrcHDD_+@"/DVD\d/フイルム",DstHDD_+"/SL")|>funs->Regex.Replace(s,SrcHDD_+@"/DVD\d/ポケットフイルム",DstHDD_+"/PF")|>funs->Regex.Replace(s,".JPG",".jpg")srcPath,destinateFilePath))// もしコピー先のフォルダがなければ作成するletcreateFolderIfnotExists()=dstJPGs()|>List.map(funarr->arr|>Array.map(funtpl->System.IO.Path.GetDirectoryName(tpl|>snd))|>Array.distinct)|>List.iter(funarr->arr|>Array.iter(funfolderPath->ifnot(Directory.Exists(folderPath))thenDirectory.CreateDirectory(folderPath)|>ignore))letmain()=createFolderIfnotExists()dstJPGs()|>Array.concat|>Array.map(fun(src,dst)->async{File.Copy(src,dst)})|>Async.Parallel|>Async.RunSynchronouslymain()

$ time fsharpi foo.fsx

real    0m39.002s
user    0m5.849s
sys     0m54.564s

" see ---> :h man.vim" vimrcに書くlet runtime ftplugin/man.vim" foldingを使いたい場合は記述letg:ft_man_folding_enable=1

" 特に設定は必要なし" see ---> :h nvim-features > Commands: > :Man" foldingを使いたい場合は vimrc に記述set foldmethod=indent

# foo.bash

:Ref man exiftool

or 

# exiftoolという単語の上で K を押す
exiftool 

# foo.py:Refpydocprintor# printという単語の上で K を押すprint('foo')

$ git clone https://github.com/thinca/vim-ref

" vimrcset runtimepath+=/path/to/vim-ref

" see also :h ref.vim , :h ref-man , :h ref-pydocletg:ref_man_cmd='man'letg:ref_pydoc_cmd='python3 -m pydoc'letg:ref_use_vimproc=v:true

:Ref man exif "ここでタブ
"↓:Ref man exif " 補完が効かない

1. man のコマンド名のキャッシュをつくる
    :Ref man less

2. あらたにコマンドをついかする（ $ brew install exiftool )
    $ brew install exiftool

3. キャッシュファイルに exiftoolのコマンド名がないので補完されない
    :Ref man exif...

:Ref -nocache man exiftool

or

:Ref -updatecache man
:Ref man exiftool

file extension 
    fsharp foo.fsx
    elixir foo.exs

binding
    fsharp let foo = 123
    elixir foo = 123

function in pipe
    fsharp 
        "foo" |> fun s ->
    elixir
        "foo" |> fn s -> ... end
        or
        "foo  |> &( &1  )

// fsharp"hello"|>stdout.WriteLine[1..5]|>printfn"%A"// hello// [1; 2; 3; 4; 5]

# elixir"hello"|>IO.puts1..5|>IO.inspect# hello# 1..5

["foo";"bar";"baz"]|>List.iterstdout.WriteLine#foo#bar#baz

# elixir["foo","bar","baz"]|>Enum.with_index()|>Enum.each(fn{e,_}->IO.putseend)# foo# bar# baz

// fsharp("foo","bar","baz")|>fun(_,x,_)->stdout.WriteLinex// bar

# elixir{"foo","bar","baz"}|>elem(1)|>IO.puts# bar

// fsharp(1).ToString().GetType()|>stdout.WriteLine// System.String

# elixir ( typeof()がなさそう？ )to_string(1)|>is_bitstring|>IO.puts# false

// fsharplethello1=async{stdout.WriteLine("hello")}letworld1=async{stdout.WriteLine("world")}[hello1;world1]|>Async.Parallel|>Async.RunSynchronously// hello world or world hello

# elixir["hello","world"]|>Task.async_stream(&(IO.puts&1))|>Enum.to_list()# hello world or world hello

// fsharpmodulefoo=letbarbaz=stdout.WriteLine(baz)foo.bar"aaa"// aaa

# elixirdefmoduleFoododefbar(baz)doIO.puts(baz)endendFoo.bar"aaa"# aaa

defmoduleFoododefsortedFileNameList(fp)doexifToolParam=["-quiet","-fast2","-s3","-filename","-fileorder datetimeoriginal","-fileorder filename"]bashCommand=["-c","cd "<>fp<>" ; echo *jpg | xargs exiftool "<>Enum.join(exifToolParam," ")]System.cmd("bash",bashCommand)|>elem(0)|>(fnx->String.split(x,"\n")end).()|>Enum.drop(-1)enddefresetAllTime(fp)doexifToolParam=["-quiet","-fast2","-s3","-d '%Y:%m:%d 00:00:00'","-overwrite_original_in_place","\"-alldates<alldates\""]bashCommand=["-c","cd "<>fp<>" ; echo *jpg | xargs exiftool "<>Enum.join(exifToolParam," ")]System.cmd("bash",bashCommand)|>elem(0)enddefaddOneSecond(fp)doexifToolParam=["cd "<>fp<>" ; exiftool","-quiet","-fast2","-s3","-overwrite_original_in_place -alldates+=0:0:"]exifToolParam2=Foo.sortedFileNameList(fp)|>Enum.with_index()|>Enum.map(fn{filename,idx}->Enum.join(exifToolParam," ")<>Kernel.inspect(idx)<>" "<>filenameend)exifToolParam2|>Enum.each(&(System.cmd("bash",["-c",&1])))end# 確認用defmyCheck(fp)doexifToolParam=["-quiet","-fast2","-s3","-filename","-datetimeoriginal","-fileorder datetimeoriginal","-fileorder filename"]bashCommand=["-c","cd "<>fp<>" ; echo *jpg | xargs exiftool "<>Enum.join(exifToolParam," ")]System.cmd("bash",bashCommand)|>elem(0)|>(fnx->String.split(x,"\n")end).()|>(fnlst->lst--[""]end).()enddefjpgFolderList(fp)doPath.wildcard(Path.expand(fp)<>"/**/*.jpg")|>Enum.map(&(Path.dirname(&1)))|>Enum.uniqenddefmainImpl(foo)do" sortedFileNameList "|>IO.putsFoo.sortedFileNameList(foo)" resetAllTime "|>IO.putsFoo.resetAllTime(foo)" addOneSecond "|>IO.putsFoo.addOneSecond(foo)" myCheck "|>IO.putsFoo.myCheck(foo)|>Enum.each(&(IO.puts(&1)))end# 写真データーのExifデーターを変更できるようにするために権限を変えるdefchmod644(fld)doSystem.cmd("bash",["-c","cd "<>fld<>" ;  chmod 644 *jpg"])endenddefmoduleMaindo# 写真データーがあるフォルダを指定するbaseFolder="/Users/callmekohei/Desktop/tmptmp"# すべての写真データーのpermissionを644にするFoo.jpgFolderList(baseFolder)|>Task.async_stream(&(Foo.chmod644(&1)),[timeout::infinity,max_concurrency:1000])|>Enum.to_list()# メイン部分を実行Foo.jpgFolderList(baseFolder)|>Task.async_stream(&(Foo.mainImpl(&1)),[timeout::infinity,max_concurrency:1000])|>Enum.to_list()end

$ time elixir foo.exs

real    5m48.747s
user    0m2.563s
sys     0m1.753s

$ time bash foo.bash

real    9m2.675s
user    7m19.833s
sys     1m14.571s

defaddOneSecond(fp)doexifToolParam2|>Task.async_stream(&(System.cmd("bash",["-c",&1])))|>Enum.to_list()endFoo.jpgFolderList(baseFolder)|>Task.async_stream(&(Foo.mainImpl(&1)),[timeout::infinity,max_concurrency:1000])|>Enum.to_list()

defaddOneSecond(fp)doexifToolParam2|>Enum.each(&(System.cmd("bash",["-c",&1])))end