TSabc 発言

こん？？は、Ｙさです。


davi writes:

> どなたか、ちと教えてください。


でびさん版をなるべく活かすとしたら
 gawk -f j.awk book_list.txt | gawk -f book2csv.awk
ってな感じで。

----- book_list.txt
　：（省略）
-----
　↓
----- j.awk
BEGIN {
    FS = ",";
}
prev!=$1 {
  if(prev!="") print "";
  prev=$1;
}
{ printf("%s,", $0); }
END {
  print "";
}
-----
　↓
-----
ビアドのローマの女たち,著者,A.バージェス,ビアドのローマの女たち,出版社,サンリオSF,ビアドのローマの女たち,出版年,1980,
永遠へのパスポート,著者,J.G.バラード,永遠へのパスポート,訳者,永井淳 訳,永遠へのパスポート,出版社,創元推理文庫,永遠へのパスポート,出版年,1970,
　：（省略）
-----
　↓
----- book2csv.awk [改]
BEGIN {
    FS = ",";
}
{
    author = "";
    translator = "";
    publisher = "";
    year  = "";

    title = $1;
    for(i=2; i<NF; i+=3){
        if ( $i == "著者" ) { author = $(i+1); }
        if ( $i == "訳者" ) { translator = $(i+1); }
        if ( $i == "出版社" ) { publisher = $(i+1); }
        if ( $i == "出版年" ) { year = $(i+1); }
    }
    printf( "%s,%s,%s,%s,%s\n", title,author,translator,publisher,year );
}
-----
　↓
-----
ビアドのローマの女たち,A.バージェス,,サンリオSF,1980
永遠へのパスポート,J.G.バラード,永井淳 訳,創元推理文庫,1970
火星の黄金仮面,O.A.クライン,,創元推理文庫,1978
虚空の眼,フィリップ・K・ディック,大瀧啓裕 訳,サンリオSF,
夢みる宝石,シオドア・スタージョン,,ハヤカワ文庫,1979
創世記機械,,山高昭 訳,創元推理文庫,1981
-----