e4d6a8484d
Former-commit-id: 0579e878a69b7c285ca71870e9ca5730649a2fda Former-commit-id: 7cced5b488441d87bf070a9a444317db0e048880
18 lines
178 B
Awk
18 lines
178 B
Awk
#
|
|
|
|
BEGIN {
|
|
if (FILE == "") FILE = "db.sel.txt"
|
|
while (getline < FILE)
|
|
INC[$1] = $1
|
|
close(FILE)
|
|
}
|
|
|
|
/^>/ {
|
|
name = substr($1, 2)
|
|
ok = name in INC
|
|
}
|
|
|
|
ok {
|
|
print $0
|
|
}
|