ファイルをバイナリダンプする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; }