1991.4.1-
例題で学ぶAWK(Windows専用)
小山智史(弘前大学)
○ 概要
AWK言語[1]はプログラミングの入門用としてちょうどいいと思い、テキストを作り[2][3]、しばらく授業で使っていました。しかし、DOSからWindowsの時代になり、CUIで利用するこの言語が馴染まなくなってしまい、授業での利用をお休みしていました。
その後、大阪教育大学の野浪正隆先生がCopal[4]を使ってWindows向けに見直して、Webテキストとして公開してくださいました[5]。Copalはとても良くできているのですが、授業で利用する場合、「データ」「プログラム」「実行結果」を一望できないことを残念に思っていました。
最近、コーパス言語学の分野を研究されている先生にAWK言語をご紹介する機会があり、この機会にCopalに代わるGUIインタフェースをHTAで作ってみました。awkexec.htaの画面と野浪先生のテキストを並べて表示し、データやプログラムをコピー＆ペーストで貼りつけながら利用すると良さそうです。プログラムはWindowsに実装されているmshtaで解釈されるので、特別なソフトをインストールせずに、すぐに実行できます。
○ 準備
Windows版gawk(例えば[6])を入手し、下のawkexec.htaと同じ場所またはパスの設定されている場所に置いておきます。
awkexec.hta:
<![CDATA[
<html><head><title>例題で学ぶAWK</title>
<script>
_sh =new ActiveXObject("WScript.Shell");
_fso=new ActiveXObject("Scripting.FileSystemObject");
function awkexec(){
var tmp =_fso.GetTempName(); // 一時ファイルのファイル名
var prog=_fso.OpenTextFile(tmp,2,true); // 一時ファイルのオープン
var line=PROG.value.split("\n"); // プログラムを行毎に分解
for(var i=0;i<line.length;i++) prog.WriteLine(line[i]);
var exec=_sh.Exec("cmd.exe /c,gawk -f "+tmp); // プログラムの実行
line=DAT.value.replace(/\r/g,"").split("\n"); // データを行毎に分解
for(i=0;i<line.length-1;i++) exec.StdIn.WriteLine(line[i]); // データを入力
if(line[i].length) exec.StdIn.WriteLine(line[i]); // 最終行は通常改行で終了
exec.StdIn.close(); // データをクローズ
TXT.value=exec.StdOut.Readall(); // 実行結果を表示
ERR.value=exec.StdErr.Readall(); // エラーを表示
prog.Close(); // 一時ファイルのクローズ
_fso.DeleteFile(tmp); // 一時ファイルの削除
}
</script>
</head><body onload=window.resizeTo(480,600)>
<h3 align=center>例題で学ぶAWK[<a href=http://satsuki.ex.osaka-kyoiku.ac.jp/~nonami/joho/awk.html>テキスト</a>]</h3>
<dl>
<dt>データ<dd> <textarea id=DAT rows=8 cols=44></textarea>
<dt>プログラム<dd> <textarea id=PROG rows=8 cols=44></textarea>
<button onclick=awkexec()>実行</button>
<dt>実行結果<dd> <textarea id=TXT rows=8 cols=44></textarea>
<dt>エラー<dd> <textarea id=ERR rows=3 cols=44></textarea>
</dl>
</body></html>
]]>
(参考サイト)
[1] プログラミング言語AWK, トッパン, 1989.
[2] 例題で学ぶ簡易言語「AWK」(readme・TEXT・ROFF・点字), トランジスタ技術 1991年6月号付録.
[3] 「プログラミングによる問題解決」入門, http://siva.cc.hirosaki-u.ac.jp/usr/koyama/lecture/text/pdf/awkprog.pdf
[4] Copal2, http://homepage1.nifty.com/kaityo/copalpro/
[5] 例題で学ぶ簡易言語「AWK」, http://satsuki.ex.osaka-kyoiku.ac.jp/~nonami/joho/awk.html
[6] gawk, http://www.kt.rim.or.jp/~kbk/gawk-3.1/
koyama@cc.hirosaki-u.ac.jp