rectype.awk
上传用户:tsgydb
上传日期:2007-04-14
资源大小:10674k
文件大小:1k
- # $Id: rectype.awk,v 11.3 2000/07/17 22:00:49 ubell Exp $
- #
- # Print out a range of the log
- # Command line should set RECTYPE to the a comma separated list
- # of the rectypes (or partial strings of rectypes) sought.
- NR == 1 {
- ntypes = 0
- while ((ndx = index(RECTYPE, ",")) != 0) {
- types[ntypes] = substr(RECTYPE, 1, ndx - 1);
- RECTYPE = substr(RECTYPE, ndx + 1, length(RECTYPE) - ndx);
- ntypes++
- }
- types[ntypes] = RECTYPE;
- }
- /^[/{
- printme = 0
- for (i = 0; i <= ntypes; i++)
- if (index($1, types[i]) != 0) {
- printme = 1
- break;
- }
- }
- {
- if (printme == 1)
- print $0
- }