txn.awk
上传用户:tsgydb
上传日期:2007-04-14
资源大小:10674k
文件大小:1k
- # $Id: txn.awk,v 10.3 2000/07/17 22:07:17 ubell Exp $
- #
- # Print out all the records for a comma-separated list of transaction ids.
- NR == 1 {
- ntxns = 0
- while ((ndx = index(TXN, ",")) != 0) {
- txn[ntxns] = substr(TXN, 1, ndx - 1);
- TXN = substr(TXN, ndx + 1, length(TXN) - ndx);
- ntxns++
- }
- txn[ntxns] = TXN;
- }
- /^[/{
- if (printme == 1) {
- printf("%sn", rec);
- printme = 0
- }
- rec = "";
- for (i = 0; i <= ntxns; i++)
- if (txn[i] == $5) {
- rec = $0
- printme = 1
- }
- }
- /^ /{
- rec = sprintf("%sn%s", rec, $0);
- }
- END {
- if (printme == 1)
- printf("%sn", rec);
- }