374 lines
3.7 KiB
Plaintext
374 lines
3.7 KiB
Plaintext
|
#!/l/local/bin/perl -w
|
||
|
|
|
||
|
|
$pat = '';
|
||
|
|
# construct word list
|
||
|
|
while (<DATA>) {
|
||
|
|
chomp;
|
||
|
|
next unless $_;
|
||
|
|
$pat .= "$_|";
|
||
|
|
}
|
||
|
|
chop $pat if $pat =~ /\|$/;
|
||
|
|
|
||
|
|
# grep
|
||
|
|
while (<>) {
|
||
|
|
if (/^(.*?)\b($pat)\b(.*)$/o) {
|
||
|
|
my $head = "$1#$2#";
|
||
|
|
$_ = $3;
|
||
|
|
while (/^(.*?)\b($pat)\b(.*)$/o) {
|
||
|
|
$head .= "$1#$2#";
|
||
|
|
$_ = $3;
|
||
|
|
}
|
||
|
|
print "$ARGV\:$.\:$head$_\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
continue {
|
||
|
|
close ARGV if eof;
|
||
|
|
}
|
||
|
|
__END__
|
||
|
|
Argv
|
||
|
|
Cmd
|
||
|
|
DBcv
|
||
|
|
DBgv
|
||
|
|
DBline
|
||
|
|
DBsignal
|
||
|
|
DBsingle
|
||
|
|
DBsub
|
||
|
|
DBtrace
|
||
|
|
No
|
||
|
|
Sv
|
||
|
|
Xpv
|
||
|
|
Yes
|
||
|
|
amagic_generation
|
||
|
|
ampergv
|
||
|
|
an
|
||
|
|
archpat_auto
|
||
|
|
argvgv
|
||
|
|
argvoutgv
|
||
|
|
av_fetch_sv
|
||
|
|
basetime
|
||
|
|
beginav
|
||
|
|
bodytarget
|
||
|
|
bostr
|
||
|
|
bufend
|
||
|
|
bufptr
|
||
|
|
cddir
|
||
|
|
chopset
|
||
|
|
collation_ix
|
||
|
|
collation_name
|
||
|
|
collation_standard
|
||
|
|
collxfrm_base
|
||
|
|
collxfrm_mult
|
||
|
|
colors
|
||
|
|
colorset
|
||
|
|
compcv
|
||
|
|
compiling
|
||
|
|
comppad
|
||
|
|
comppad_name
|
||
|
|
comppad_name_fill
|
||
|
|
comppad_name_floor
|
||
|
|
cop_seqmax
|
||
|
|
copline
|
||
|
|
cryptseen
|
||
|
|
cshlen
|
||
|
|
cshname
|
||
|
|
curcop
|
||
|
|
curcopdb
|
||
|
|
curinterp
|
||
|
|
curpad
|
||
|
|
curpm
|
||
|
|
curstack
|
||
|
|
curstackinfo
|
||
|
|
curstash
|
||
|
|
curstname
|
||
|
|
curthr
|
||
|
|
dbargs
|
||
|
|
debdelim
|
||
|
|
debname
|
||
|
|
debstash
|
||
|
|
debug
|
||
|
|
defgv
|
||
|
|
defoutgv
|
||
|
|
defstash
|
||
|
|
delaymagic
|
||
|
|
diehook
|
||
|
|
dirty
|
||
|
|
dlevel
|
||
|
|
dlmax
|
||
|
|
do_undump
|
||
|
|
doextract
|
||
|
|
doswitches
|
||
|
|
dowarn
|
||
|
|
dumplvl
|
||
|
|
e_script
|
||
|
|
egid
|
||
|
|
endav
|
||
|
|
envgv
|
||
|
|
errgv
|
||
|
|
error_count
|
||
|
|
euid
|
||
|
|
eval_cond
|
||
|
|
eval_mutex
|
||
|
|
eval_owner
|
||
|
|
eval_root
|
||
|
|
eval_start
|
||
|
|
evalseq
|
||
|
|
exitlist
|
||
|
|
exitlistlen
|
||
|
|
expect
|
||
|
|
extralen
|
||
|
|
fdpid
|
||
|
|
filemode
|
||
|
|
firstgv
|
||
|
|
forkprocess
|
||
|
|
formfeed
|
||
|
|
formtarget
|
||
|
|
generation
|
||
|
|
gensym
|
||
|
|
gid
|
||
|
|
globalstash
|
||
|
|
he_root
|
||
|
|
hexdigit
|
||
|
|
hintgv
|
||
|
|
hints
|
||
|
|
hv_fetch_ent_mh
|
||
|
|
hv_fetch_sv
|
||
|
|
in_clean_all
|
||
|
|
in_clean_objs
|
||
|
|
in_eval
|
||
|
|
in_my
|
||
|
|
in_my_stash
|
||
|
|
incgv
|
||
|
|
initav
|
||
|
|
inplace
|
||
|
|
last_in_gv
|
||
|
|
last_lop
|
||
|
|
last_lop_op
|
||
|
|
last_proto
|
||
|
|
last_uni
|
||
|
|
lastfd
|
||
|
|
lastgotoprobe
|
||
|
|
lastscream
|
||
|
|
lastsize
|
||
|
|
lastspbase
|
||
|
|
laststatval
|
||
|
|
laststype
|
||
|
|
leftgv
|
||
|
|
lex_brackets
|
||
|
|
lex_brackstack
|
||
|
|
lex_casemods
|
||
|
|
lex_casestack
|
||
|
|
lex_defer
|
||
|
|
lex_dojoin
|
||
|
|
lex_expect
|
||
|
|
lex_fakebrack
|
||
|
|
lex_formbrack
|
||
|
|
lex_inpat
|
||
|
|
lex_inwhat
|
||
|
|
lex_op
|
||
|
|
lex_repl
|
||
|
|
lex_starts
|
||
|
|
lex_state
|
||
|
|
lex_stuff
|
||
|
|
lineary
|
||
|
|
linestart
|
||
|
|
linestr
|
||
|
|
localizing
|
||
|
|
localpatches
|
||
|
|
main_cv
|
||
|
|
main_root
|
||
|
|
main_start
|
||
|
|
mainstack
|
||
|
|
malloc_mutex
|
||
|
|
markstack
|
||
|
|
markstack_max
|
||
|
|
markstack_ptr
|
||
|
|
max_intro_pending
|
||
|
|
maxo
|
||
|
|
maxscream
|
||
|
|
maxsysfd
|
||
|
|
mess_sv
|
||
|
|
min_intro_pending
|
||
|
|
minus_F
|
||
|
|
minus_a
|
||
|
|
minus_c
|
||
|
|
minus_l
|
||
|
|
minus_n
|
||
|
|
minus_p
|
||
|
|
modcount
|
||
|
|
modglobal
|
||
|
|
multi_close
|
||
|
|
multi_end
|
||
|
|
multi_open
|
||
|
|
multi_start
|
||
|
|
multiline
|
||
|
|
mystrk
|
||
|
|
na
|
||
|
|
nexttoke
|
||
|
|
nexttype
|
||
|
|
nextval
|
||
|
|
nice_chunk
|
||
|
|
nice_chunk_size
|
||
|
|
ninterps
|
||
|
|
nomemok
|
||
|
|
nrs
|
||
|
|
nthreads
|
||
|
|
nthreads_cond
|
||
|
|
numeric_local
|
||
|
|
numeric_name
|
||
|
|
numeric_standard
|
||
|
|
ofmt
|
||
|
|
ofs
|
||
|
|
ofslen
|
||
|
|
oldbufptr
|
||
|
|
oldlastpm
|
||
|
|
oldname
|
||
|
|
oldoldbufptr
|
||
|
|
op
|
||
|
|
op_mask
|
||
|
|
op_seqmax
|
||
|
|
opsave
|
||
|
|
origalen
|
||
|
|
origargc
|
||
|
|
origargv
|
||
|
|
origenviron
|
||
|
|
origfilename
|
||
|
|
ors
|
||
|
|
orslen
|
||
|
|
osname
|
||
|
|
pad_reset_pending
|
||
|
|
padix
|
||
|
|
padix_floor
|
||
|
|
parsehook
|
||
|
|
patchlevel
|
||
|
|
patleave
|
||
|
|
pending_ident
|
||
|
|
perl_destruct_level
|
||
|
|
perldb
|
||
|
|
pidstatus
|
||
|
|
preambleav
|
||
|
|
preambled
|
||
|
|
preprocess
|
||
|
|
profiledata
|
||
|
|
reg_eval_set
|
||
|
|
reg_flags
|
||
|
|
reg_start_tmp
|
||
|
|
reg_start_tmpl
|
||
|
|
regbol
|
||
|
|
regcc
|
||
|
|
regcode
|
||
|
|
regcomp_parse
|
||
|
|
regcomp_rx
|
||
|
|
regcompp
|
||
|
|
regdata
|
||
|
|
regdummy
|
||
|
|
regendp
|
||
|
|
regeol
|
||
|
|
regexecp
|
||
|
|
regflags
|
||
|
|
regindent
|
||
|
|
reginput
|
||
|
|
reginterp_cnt
|
||
|
|
reglastparen
|
||
|
|
regnarrate
|
||
|
|
regnaughty
|
||
|
|
regnpar
|
||
|
|
regprecomp
|
||
|
|
regprev
|
||
|
|
regprogram
|
||
|
|
regsawback
|
||
|
|
regseen
|
||
|
|
regsize
|
||
|
|
regstartp
|
||
|
|
regtill
|
||
|
|
regxend
|
||
|
|
replgv
|
||
|
|
restartop
|
||
|
|
retstack
|
||
|
|
retstack_ix
|
||
|
|
retstack_max
|
||
|
|
rightgv
|
||
|
|
rs
|
||
|
|
rsfp
|
||
|
|
rsfp_filters
|
||
|
|
runops
|
||
|
|
savestack
|
||
|
|
savestack_ix
|
||
|
|
savestack_max
|
||
|
|
sawampersand
|
||
|
|
sawstudy
|
||
|
|
sawvec
|
||
|
|
scopestack
|
||
|
|
scopestack_ix
|
||
|
|
scopestack_max
|
||
|
|
screamfirst
|
||
|
|
screamnext
|
||
|
|
secondgv
|
||
|
|
seen_evals
|
||
|
|
seen_zerolen
|
||
|
|
sh_path
|
||
|
|
siggv
|
||
|
|
sighandlerp
|
||
|
|
sortcop
|
||
|
|
sortcxix
|
||
|
|
sortstash
|
||
|
|
specialsv_list
|
||
|
|
splitstr
|
||
|
|
stack_base
|
||
|
|
stack_max
|
||
|
|
stack_sp
|
||
|
|
start_env
|
||
|
|
statbuf
|
||
|
|
statcache
|
||
|
|
statgv
|
||
|
|
statname
|
||
|
|
statusvalue
|
||
|
|
statusvalue_vms
|
||
|
|
stdingv
|
||
|
|
strchop
|
||
|
|
strtab
|
||
|
|
sub_generation
|
||
|
|
sublex_info
|
||
|
|
subline
|
||
|
|
subname
|
||
|
|
sv_arenaroot
|
||
|
|
sv_count
|
||
|
|
sv_mutex
|
||
|
|
sv_no
|
||
|
|
sv_objcount
|
||
|
|
sv_root
|
||
|
|
sv_undef
|
||
|
|
sv_yes
|
||
|
|
svref_mutex
|
||
|
|
sys_intern
|
||
|
|
tainted
|
||
|
|
tainting
|
||
|
|
thisexpr
|
||
|
|
thr_key
|
||
|
|
threadnum
|
||
|
|
threads_mutex
|
||
|
|
threadsv_names
|
||
|
|
thrsv
|
||
|
|
timesbuf
|
||
|
|
tmps_floor
|
||
|
|
tmps_ix
|
||
|
|
tmps_max
|
||
|
|
tmps_stack
|
||
|
|
tokenbuf
|
||
|
|
top_env
|
||
|
|
toptarget
|
||
|
|
uid
|
||
|
|
unsafe
|
||
|
|
warnhook
|
||
|
|
xiv_arenaroot
|
||
|
|
xiv_root
|
||
|
|
xnv_root
|
||
|
|
xpv_root
|
||
|
|
xrv_root
|
||
|
|
piMem
|
||
|
|
piENV
|
||
|
|
piStdIO
|
||
|
|
piLIO
|
||
|
|
piDir
|
||
|
|
piSock
|
||
|
|
piProc
|