だめんずAWK'er (the men's awker): 最強Grep　ファイル検索 awk script

Grepコマンドだが、、、

●キーワードに正規表現を使える
●２つめのキーワードを指定して、２つのキーワードにはさまれた行範囲を出力できる
●１つめのキーワード内の部分文字列を２つめのキーワード内に指定できる
●１つめのキーワードに対して除外条件指定できる

例えば、下のC言語のソースファイル"test.c"に最強Grepをかけてみる。

test.c

grep コマンドラインパラメタと出力結果

===================================
シングルモードではマッチしたラインのマッチした語句のみリスト
=================================== 
ptgrep "if" test.c

test.c:5: if 
test.c:8: if

===================================
"if"がある行から、最初にマッチした";"もしくは"}"がある行までリスト
=================================== 
ptgrep "if"  test.c /to "[;}]"

test.c:5:*        if (a==3){ 
test.c:6:             printf("a=3\n"); 
test.c:8:*            if (a==5){ 
test.c:9:                 printf("a==5\n");

===================================
行頭連続するスペースタブを部分文字列として、"if"がある行から、
最初にマッチした、行頭部分文字列(つまり、同一インデント)、"}"、行末のある行までリスト
=================================== 
ptgrep "^([ \t]+)if"  test.c /to "^\1}[ \t]*$"

test.c:5:*        if (a==3){ 
test.c:6:             printf("a=3\n"); 
test.c:7:         } else { 
test.c:8:             if (a==5){ 
test.c:9:                 printf("a==5\n"); 
test.c:10:             } 
test.c:11:             printf("a!=3\n"); 
test.c:12:         }

===================================
行頭連続するスペースタブを部分文字列として、"if～"がある行から、
最初にマッチした、行頭部分文字列(つまり、同一インデント)、"}"、行末のある行までリスト
ただし、if文中に"==3"があるものは除外
=================================== 
ptgrep "^([ \t]+)if.*$"  test.c /to "^\1}[ \t]*$" /fl "==3"

test.c:8:*            if (a==5){ 
test.c:9:                 printf("a==5\n"); 
test.c:10:             }

AWKのつぼ

ま、簡単に説明すると1個目のキーワードマッチでフラグ立てして２個目のキーワードマッチでフラグを落とす。フラゲの時に出力って訳だ。
スクリプト的には難しい所は無い。
しいて言うならば、リアルタイムに、２個目のキーワードの部分文字列指定キャラを本物のその時々の文字列に置き換えて作りこむ所がミソかね。

ptgrep.bat

ptgrep.awk

BEGIN{
 IGNORECASE=0;
 ns="";
 to="";
 if (ARGC < 3){
  print "usage: ptgrep <find REGEXP-pattern> <filename> [/to <to find REGEXP-pattern>] [/fl <filter find REGEXP-pattern>] [/c]"
   exit;
 }
 while (ARGC>3){
# print ARGC ARGV[ARGC-1]">>" ARGV[ARGC-2] " " ARGV[ARGC-1]
  if (match(ARGV[ARGC-2],/\/fl/)){
   ns=ARGV[ARGC-1];
   ARGC -=2;
   continue;
  }
  if (match(ARGV[ARGC-1],/\/c/)){
   IGNORECASE=1;
   ARGC -=1;
   continue;
  }
  if (match(ARGV[ARGC-2],/\/to/)){
   to=ARGV[ARGC-1];
   ARGC -=2;
   for (i=1;i<10;i++){
    pp="\\\\"i;
    if (match(to,pp)){
     subp[j++]=i
    }
   }
   continue;
  }
  ARGC--;
 }
 if (ARGC ==3){
  param = ARGV[2];
  ARGC--;
 } else {
  exit
 }
 if (IGNORECASE){
  to=tolower(to);
  ns=tolower(ns);
  param=tolower(param);
 }
 findflg=0;
}
{

D0=$0;
 if (IGNORECASE){
  $0=tolower($0);
 }
 nl=NR;
 tolen=length(to);
 if ((tolen!=0) && (findflg != 0)){
  print FILENAME ":"nl": " D0 ; 
  if (match($0, too)){
   findflg=0;
  }
 
 } else {
  if (match($0, param)){
   finds=substr($0,RSTART,RLENGTH);
   too=to;
   for(x in subp){
    pp="\\"subp[x];
    p=gensub(param,pp,1,finds);
    too=gensub("(.*)\\"pp"(.*)","\\1"p"\\2",1,too);
   }
   if ((ns=="")||(!match(finds,ns))){ 
    gsub(/\r/,"\n",finds);
    if (tolen){
     print FILENAME ":"nl":*" D0; 
      if (match(substr($0,RSTART+RLENGTH),too)){
      } else {
       findflg=1;
      }
    } else {
     print FILENAME ":"nl": " finds; 
    }
   }
  }
 }
}
END{
}

ptgrep.bat(.awk)は、複数ファイル検索に対応していない。
これを、allptgrep.batで対応する。

allptgrep キーワード1 <拡張子> <ファイル名、キーワード1以外のptgrepパラメタ>

カレントフォルダを基点に階層内の全ファイル中、指定拡張子のファイルに対してptgrepを呼び出すバッチだ。

allptgrep.bat

allptgrep.awk

だめんずAWK'er (the men's awker)

はじめに

2013年10月30日水曜日

最強Grep　ファイル検索 awk script

0 件のコメント:

コメントを投稿

はじめに

2013年10月30日水曜日

最強Grep ファイル検索 awk script

0 件のコメント:

コメントを投稿

最強Grep　ファイル検索 awk script