AWKスクリプト作成法 その３

質問

ＡＷＫスクリプトで以下のようなことをやりたいのですが
どのようなすればできるでしょうか？
いい方法を教えてもらえないでしょうか？

入力ファイル例
ＬＡＹＥＲ部 ＬＡＹＥＲ　ＡＡＰＯＬ　１０
ＬＡＹＥＲ　ＡＢＰＯＬ　１１
ＬＡＹＥＲ　ＡＣＯＮ　　１５
ＬＡＹＥＲ　ＡＭ１　　　１７
：
処理部 ＡＰＯＬ　=　ＡＡＰＯＬ　ＮＯＴ　ＷＩＮ
Ｍ１　＝　ＡＭ１　ＮＯＴ　ＷＩＮ
ＣＯＮ　＝　ＡＣＯＮ　ＮＯＴ　ＷＩＮ
：
ＰＯＬ　=　ＡＰＯＬ　ＡＮＤ　ＦＬＤ
：
修理するファイルの形式　
［１］　　ＬＡＹＥＲ部　”ＬＡＹＥＲ　ＡＡＰＯＬ　１０”といった形式で”ＡＡＰＯＬ”が”１０”に割り当てられる
［２］　　処理部　　　”ＡＰＯＬ　＝　ＡＡＰＯＬ　ＮＯＴ　ＷＩＮ”といった形式で各単語が論理演算される。

［２］の処理部では「１］で定義された単語が何度論理演算されているかはわからない。

ＡＷＫでおこないたい処理
（１）ＬＡＹＥＲ部で”１０”、”１７”で定義された単語（例では”ＡＡＰＯＬ”と”ＡＭ１”）を取得
（２）処理部で（１）で取得した単語を使用して処理部で作成された全単語を取得

回答No.4

terra5

処理部の左辺に表れた単語で右辺に出現していない物のリストが欲しいということだと思いますが。

だとすれば、基本的には既に書いたスクリプトの内容を理解できればもう書けるはずです。

また、エラーチェックしないなら、LAYERに出現しているかどうかは結果には関係ないですね。
処理部の左辺に表れたシンボルをテーブルに単語をキーにして値0として入れ、
右辺に出現したらカウント、
最後にテーブルからカウンタが0の物を選んで出力でできます。

ポイントは for( sym in table )とかif( sym in table )でしょう。

回答No.3

terra5

>ＷＯＲＤ「０」　＝”ＰＯＬ”
>ＷＯＲＤ［１］　＝　”ＧＡＴ”
>word_number　=　１
>といったものを出力として得たいのです。

やっぱりわかりません。
1) なぜ、POSが選択されないのか
2) なぜ、GATより先にPOLが選択されるのか
3) FLDは未定義だがどう扱うのか、
4) なぜ、POLが選択されるのにAPOLが選択されないのか
5) word_number　=　１なのは[1]まで使っているという意味か

補足

すいません。これは私の単純な記述ミスでした。
このサンプルのケースでは
（１）　ＬＡＹＥＲ部でＡＡＰＯＬが選択される。
（２）処理部で”ＡＡＰＯＬ”より論理演算で作成された”ＡＰＯＬ”が選択される。
（３）処理部で”ＡＡＰＯＬ”より論理演算で作成された”ＧＡＴ”が選択される。
（４）処理部で”ＡＰＯＬ”より論理演算で作成された”ＰＯＬ”が選択される。
（５）処理部で”ＰＯＬ”より論理演算で作成された”ＰＯＳ”が選択される。

よって”ＡＡＰＯＬ”より論理演算で作成されたＷＯＲＤは
”ＧＡＴ”と”ＰＯＳ”となります。

出力例は
ＷＯＲＤ［０］　＝　”ＰＯＳ”
ＷＯＲＤ［１］　＝　”ＧＡＴ”
word_number　＝　１

となります。
”word_number　＝　１”の意味は一番最初の”ＡＡＰＯＬ”から論理演算で
作成されていったＷＯＲＤの数が０から１までのつもりで書いています。

ＷＯＲＤ配列内の１と２は入れ替わっても問題はないです。
これで理解してもらえればいいのですが．．

”ＦＬＤ”については
サンプルに
ＬＡＹＥＲ　ＡＦＬＤ　３
ＦＬＤ　＝　ＡＦＬＤ　ＮＯＴ　ＷＩＮ
の２行を書き忘れていました。

回答No.2

terra5

やはり、何をしたいのかよくわかりませんが、

>（１）”ＬＡＹＥＲ部”で３単語目が例えば”１０”の
　　　場合の２単語目（例では”ＡＡＰＯＬ”）を取得
LAYER 単語 数値
のパターンの行があった場合、単語をテーブルに格納という意味でよろしいですか。ならば、
if ( $1 == "LAYER " )
def[$2] = $3;
で、def[]に格納できます。
ある単語が登録されているかどうかは、
if ( "ABC" in def )
で判定できます。

>（一旦”ＡＰＯＬ”となり更にＡＰＯＬを使用して>>ＰＯＬが作成されているのでＰＯＬとなる。
何をしたいのかわかりません。
単に"APOL"をテーブルに入れたいだけなら、
used[$1]++;
のような形で登録できますし、有無は if ( .. in .. )の形で、
内容の一覧は
for ( s in used )
で、sに"APOL"... と順番に代入されます。

補足

処理の概要は

サンプルファイル

/*　ＬＡＹＥＲ部　*/
ＬＡＹＥＲ　ＡＡＰＯＬ　１０
ＬＡＹＥＲ　ＡＢＰＯＬ　１１
ＬＡＹＥＲ　ＡＣＯＮ　　１５
ＬＡＹＥＲ　ＡＭ１　　　１７
ＬＡＹＥＲ　ＷＩＮ　　　１７７
/*　処理部　*/
ＡＰＯＬ　=　ＡＡＰＯＬ　ＮＯＴ　ＷＩＮ
ＢＰＯＬ　＝　ＡＢＰＯＬ　ＮＯＴ　ＷＩＮ
Ｍ１　＝　ＡＭ１　ＮＯＴ　ＷＩＮ
ＧＡＴ　＝　ＡＡＰＯＬ　ＡＮＤ　Ｍ１
ＰＯＬ　=　ＡＰＯＬ　ＡＮＤ　ＦＬＤ
POS　=　ＰＯＬ　ＮＯＴ　ＢＰＯＬ　
ＢＯＯＬ＿ＥＮＤ

(1)　１単語目が”ＬＡＹＥＲ”　で３単語目が”１０”の２単語目を取得
　　（サンプルでは”ＡＡＰＯＬ”）
（２）処理部で（１）で取得した単語を使用して論理演算で作成された単語を取得
　　　その際、論理演算で何回か処理されることがあり処理部終端キーワード
　　　まで追いかけて単語を取得したい。（作成される単語数は不定）
　　サンプルでは
　　”ＡＰＯＬ　＝　ＡＡＰＯＬ　ＮＯＴ　ＷＩＮ”の行でＡＡＰＯＬからＡＰＯＬが作られる
更に”ＰＯＬ　＝　ＡＰＯＬ　ＡＮＤ　Ｍ１”の行でＡＰＯＬからＰＯＬが作られる。
それと同時に”ＧＡＴ　＝　ＡＡＰＯＬ　ＡＮＤ　Ｍ１”でＡＡＰＯＬより”ＧＡＴ”が作られる。

よって出力例としては
ＷＯＲＤ「０」　＝”ＰＯＬ”
ＷＯＲＤ［１］　＝　”ＧＡＴ”
word_number　=　１

といったものを出力として得たいのです。
実は、この後まだ処理があるのですが、字数の関係でこの部分さえできれば
後は自分でなんとかなりそうなので．．
よろしくお願いします。

回答No.1

terra5

何をしたいかがよくわからないですがこんな感じですか。
連想記憶配列とフィールドセパレータによる単語の分解ができれば、あとはどうにでもなると思います。
よく判らないので、質問が2バイト文字の場合はそのままにしてあります。
def[] ; LAYER部で定義した単語とその値
used[] ; 処理部で出現した単語のその回数
-----------------------------------------
BEGIN {
block = 0;
FS = "[ 　\t]"
}
$1=="ＬＡＹＥＲ部" {
block = 1;
}
$1=="処理部" {
block = 2;
$1 = "";
}
NF > 2 {
if (block==1) layer();
else if (block==2) proc();
}
function layer() {
for ( i=1 ; i<=NF-2 ; i++ ) {
if ( $i == "ＬＡＹＥＲ" ) {
def[$(i+1)] = $(i+2);
used[$(i+1)] = 0;
}
}
}
function proc() {
for ( i=1 ; i<=NF ; i++ ) {
if ( $i == "" ) return;
if ( $i !~ /(=)|(＝)|(ＮＯＴ)|(ＡＮＤ)/ ) {
used[$i]++;
}
}
}
END {
for( sym in used ) printf("%s(=%s) used %d times\n",sym,def[sym], used[sym]);
}

補足

すいません。質問の仕方がよくなかったようです。
まず、最初の質問の”ＬＡＹＥＲ部”、”処理部”と書いているのは私が後から追加したただのコメントのつもりで書きました。やりたいことは
（１）”ＬＡＹＥＲ部”で３単語目が例えば”１０”の
　　　場合の２単語目（例では”ＡＡＰＯＬ”）を取得
（２）（１）で取得した単語を利用して処理部で作成されている単語を取得。（例では”ＡＰＯＬ　＝　ＡＡＰＯＬ　ＮＯＴ　ＷＩＮ”となりＡＡＰＯＬからＡＰＯＬが作成されているので一旦”ＡＰＯＬ”となり更にＡＰＯＬを使用してＰＯＬが作成されているのでＰＯＬとなる。
（３）（２）のような処理があるキーワードまで続くので
　　　それを追いかけていく。

そして、（２）の処理はキーワードまで何回処理されているかはわからないのと、何種類の単語が処理によって作成されているかは判らないので、キーワードまでに作成された単語を何かの配列に格納できればと思うのですが、私がよくわからないのは、ある単語が処理をされて名前がどんどん変わっていくものを追いかけていくある種再起的な処理法がよくわからないのです。（これを再起的とは言わないのかも知れませんが．．．）