AWK : ファイル自動分類

パラメタで指定したフォルダ中に共通のプレフィクスがあると認識した場合、プレフィクス部をサブフォルダとして、その中にファイルを移動するスクリプトだ。

下記AWKの定数部 "4"はサブフォルダに移動するか判断する最低ファイル数だ。
つまり、4ファイル、プレフィクスが一致しないと分類しない。
また、より長いプレフィクスで一致する場合もあるので、ファイルの出現順によってもプレフィクス一致判断が変わることもある。うまく分類されなかったときは、サブフォルダ側で再実行してみてくれ。

前回の日付プレフィクスと組み合わせて使うと、ファイルの日付分類ができるぞ。

AWKのつぼ

なし。

fnfold.bat

dir /b /on /a-d %1|gawk -f %awkscript%\fnfold.awk exit /b

fnfold.awk

BEGIN{ cnt=0; } { fName[cnt]=$0; cnt++; } END{ for (i=0;i<cnt;i++){ tag=fName[i]; if (length(tag) < 4) continue; delete nc; for(j=length(tag);j>2;j--){ for (k=0;k<cnt;k++){ if (i==k) contihue; if (length(fName[k]) < 4) continue; if (substr(fName[k],1,j)==substr(tag,1,j)){ nc[j]++; } } } s=3; for (j=4;j<length(tag);j++){ if (nc[j]<nc[s]) { if (nc[s]>(cnt/2)){ s=j; } else { break; } } } j--; if (nc[j] >4){ fold=substr(tag,1,j) print("mkdir \"" fold "\""); system("mkdir \"" fold "\""); for(k=0;k<cnt;k++){ if (substr(fName[k],1,j)==fold){ if (length(fName[k]) == 0) continue; print "move \"" fName[k] "\" \"" fold "\""; system("move \"" fName[k] "\" \"" fold "\""); fName[k]=""; } } } } }