ファイルをバイナリダンプするAWKScript

なんとgawk3.1.5はバイナリファイルも読み込める
可変長バイナリレコードのログファイルもテキスト化できるわけだ。

ま、バイナリレコードなんて、個別仕様だから、今回はテンプレートとして使ってくれ。

例では、先頭4バイトをリトルエンディアンのlong値、次の2バイトをリトルエンディアンのshort値、残りを16進ダンプで出力している。呼び出していないが、ゾーン10進用の関数もある。
お好みのダンプツールを作ってくれ。

AWKのつぼ

・入力ファイルに変な変換がかからないようにgawk呼び出しパラメタに"--ctype=ASCII"を指定している
・BEGIN節でBINMODE=3,RS=""を指定することで、１行のデータとして全ファイルを読み込んでいる
・AWKはスコープルールがないので、通常、関数内でローカル変数が宣言できない。…が、関数パラメタだけはスタックに積まれるので、その特性を利用し、ローカル変数はその関数のパラメタに、無理やり宣言する。
例えば、function bin(n    ,i,s)は、実際は(n)のみパラメタで受け渡されて、i,sは関数内で使われるローカル変数だ。
これにより、関数の再起呼び出しも可能となる。
・GAWKは連想配列が使える。C#系ではINDEX形と呼ばれているヤシ。
配列の添え字に文字列が使えるので便利だね。内部的にはハッシュテーブルとか使ってるはずだが、プログラマはハッシュを意識しなくてもよい。
ま、ゴミが気になった時には、"delete 配列名"で削除してくれ。今回は定数配列なんで気にしない。

dmp.bat

@gawk --ctype=ASCII -f dmp.awk %1

dmp.awk

BEGIN{ BINMODE=3 RS=""; for (i=0;i<256;i++){ chr[i]=sprintf("%c",i); asc[sprintf("%c",i)]=i; hex[sprintf("%c",i)]=sprintf("%2.2x",i); } } { printf("\n"); n1=bin(4) n2=bin(2) printf("long:%d,short:%d\n%s\n",n1,n2,dump(length($0))); } END{ } function bin(n ,i,s){ z=get(n); s=0 for (i=length(z);i>0;i--){ # if (!(i % 10)&& (n >10)){ s=s sprintf("\n%d : ", i)} s=s*256+asc[substr(z,i,1)]; } return s } function dump(n ,i,s){ z=get(n); s="" for (i=0;i<length(z);i++){ # if (!(i % 10)&& (n >10)){ s=s sprintf("\n%d : ", i)} s=s sprintf("%s ",hex[substr(z,i+1,1)]); } return s } function bcdprint(z ,n){ n=asc[z]; if (n>=128) n=n-128; printf ("(%d)",n); } function get(n){ rcnt+=n; dat=substr($0,1,n); $0=substr($0,n+1); return dat; }

フォルダ内不要階層の排除AwkScript

フォルダの中にファイル(フォルダ)が1個だけという無駄な階層を削除する。

つまり
c:\aaa\bbb\ccc\ddd.txt
c:\aaa\bbb\ccc\eee.txt

c:\aaa\fff\ggg.txt

のファイルがあるとき、a:\aaaをカレントパスとしてCMDを開き、

allonefile.batを実行すると
c:\aaa\bbb@ccc\ddd.txt
c:\aaa\bbb@ccc\eee.txt

c:\aaa\fff@ggg.txt

のファイル構成に変更してくれる訳だ。

安全のため、逆に"@"が含まれるファイル(フォルダ）を元に戻すヤシも提供。

unonefile a:\aaa@bbb\ccc@ddd.txt
で
a:\aaa\bbb\ccc\ddd.txt
に展開してくれる。

注意点：フォルダ内にあるSYSTEM.HIDDN属性のファイルは「存在していない」という認識で動くようにしてある。VisualSourceSafeの展開フォルダとか、気にしたくないからね。

AWKのつぼ

onefile.batの中のawk呼び出しはスクリプトファイルじゃなくて、スクリプトパラメタで記載してる。

allonefile.bat

@for /D /R %1 %%x in (*) do @call :l1 "%%x" @exit /b :l1 @pushd . @echo %1 @cd %1 @call onefile . @popd

onefile.bat

@dir /b|gawk -F: "END{exit NR}" @if %ERRORLEVEL% EQU 1 goto :l1 @exit /b :l1 @dir /b|gawk -F: "BEGIN{ARGC=1}{print\"move \\\"\" $0 \"\\\" \\\"..\\\\\" ARGV[1] \"@\" $0\"\\\"\";system(\"move \\\"\" $0 \"\\\" \\\"..\\\\\" ARGV[1] \"@\" $0\"\\\"\")}" "%~n1" @set I=%~n1 @cd .. @rd /s /q "%I%" @exit /b

unonefile.bat

@dir /s /b /ad "*@*"|sort /r|gawk -f unonefile.awk @dir /s /b /a-d "*@*"|gawk -f unonefile.awk

unonefile.awk

BEGIN{ FS="\\" } { path= $1; for (i=2;i<=NF;i++){ if (match($i,"@")){ if (i==NF){ n=split($i,ar,"@"); for (j=1;j<n;j++){ path=path "\\" ar[j]; system( "md \"" path "\"") } print "move \"" $0 "\" \"" path "\\" ar[n] "\"" system( "move \"" $0 "\" \"" path "\\" ar[n] "\"") } else { path=path "\\" $i } } else { path=path "\\" $i } } } END{ }

重複フォルダの整理AwkScript

ZIPファイルを解凍すると、ファイル名と同じ名前のフォルダが作成され、その中にまた同じ名前のフォルダが作成される。
本スクリプトは、カレントフォルダを基点にして、同一名のサブフォルダを統合する動作を行う。

つまり
c:\aaa\bbb\bbb\ccc
c:\aaa\ddd\eee\eee\fff
のフォルダがあるとき、a:\aaaをカレントパスとしてCMDを開き、

allfresh.batを実行すると
c:\aaa\bbb\ccc
c:\aaa\ddd\eee\fff
のフォルダ構成に変更してくれる訳だ。
ただし、同一名の親フォルダ配下に同一名フォルダ以外がある場合、統合しない

注意点：カレントドライブの\tempフォルダをワークフォルダとして使うのでカレントのルートが書込み禁止だと動かない。そのときは、バッチを修正してくれ。

AWKのつぼ

AWKはフォルダ内に".","..",同名フォルダの3フォルダのみが存在してるって確認の為だけに使ってる。
後は、その名前を書いたテンポラリファイルと親フォルダ名を書いたテンポラリファイルをFCコマンドでコンペアして、リネーム用動的バッチファイル(temp\fresh3.bat)をキックする。
動的バッチはfresh.batの2行目で動的バッチ作成用バッチ(fresh1.bat)で作成している。
allfresh.batは基点フォルダから再起呼び出しで、全フォルダ毎にfresh.batを呼び出すだけだね。

allfresh.bat

@for /D /R %1 %%x in (*) do @call :l1 "%%x" @exit /b :l1 @pushd . @echo %1 @cd %1 @call fresh @popd

fresh.bat

@md \temp 2>nul @call fresh1.bat . >\temp\fresh.1 @dir |gawk -f fresh.awk >\temp\fresh.2 @fc /b \temp\fresh.1 \temp\fresh.2 >nul @if %ERRORLEVEL% EQU 0 goto l1 @exit /b :l1 @call \temp\fresh.3.bat

fresh1.bat

@echo %~n1 @echo @move "%~n1" ..\"%~n1_" >\temp\fresh.3.bat @echo @cd ..>>\temp\fresh.3.bat @echo @rd "%~n1">>\temp\fresh.3.bat @echo @move "%~n1_" "%~n1" >>\temp\fresh.3.bat

fresh.awk

BEGIN{ } { if (match($0,/^[ ]+0[ ]個のファイル[ ]+0[ ]バイト$/)){ ok++; } else if (match($0,/^[ ]+3[ ]個のディレクトリ[ ]+[0-9\,]+[ ]バイトの空き領域$/)){ ok++; } else if (match($0,/^[0-9]+\/[0-9]+\/[0-9]+ [0-9\:]+[ ]+<dir>[ ](.*)$/)){ s=gensub(/^[0-9]+\/[0-9]+\/[0-9]+ [0-9\:]+[ ]+<dir>[ ]+(.*)$/,"\\1","1",$0); } } END{ if (ok==2){ print s } else { print " " } }