375 lines
3.8 KiB
Perl
Executable File
375 lines
3.8 KiB
Perl
Executable File
#!/l/local/bin/perl -w
|
|
|
|
$pat = '';
|
|
# construct word list
|
|
while (<DATA>) {
|
|
chomp;
|
|
next unless $_;
|
|
$pat .= "$_|";
|
|
}
|
|
chop $pat if $pat =~ /\|$/;
|
|
|
|
# grep
|
|
while (<>) {
|
|
print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og;
|
|
# this variant might useful if the transformation is more complicated
|
|
# 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
|
|
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
|