perl と awk で標準エラー出力

perl で標準エラー出力に出力するには次のサンプルのようにします。


print STDERR "helo\n";


gawk で標準エラー出力するには次のサンプルのようにします。


print "helo"  > "/dev/stderr"

awk サンプル

昔のフロッピーディスクから、以前に作成したawkスクリプトが見つかりました。

csvファイルを読み込むために、FS（フィールドセパレータ）をカンマに設定しています。また、xxxx.csv という別のcsvファイルを開いて参照しているのが特徴です。







BEGIN{

FS=","
COUNT=0

}

{
COUNT=COUNT+1
# print $9,$23
MAILID=$9
EMPLO=$23

FINDFLG=0
while(getline < "xxxx.csv" > 0){
if(EMPLO==$7)FINDFLG=1

}
close("xxxx.csv")

print FINDFLG,EMPLO,MAILID > "KEKKA"
print COUNT,FINDFLG,EMPLO,MAILID


}