Commit | Line | Data |
---|---|---|
23b3bd7f | 1 | #!/usr/bin/perl -w |
2bd2b9e0 | 2 | |
3 | $pat = ''; | |
4 | # construct word list | |
5 | while (<DATA>) { | |
6 | chomp; | |
7 | next unless $_; | |
8 | $pat .= "$_|"; | |
9 | } | |
10 | chop $pat if $pat =~ /\|$/; | |
11 | ||
12 | # grep | |
13 | while (<>) { | |
04dc9db9 | 14 | print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og; |
15 | # this variant might useful if the transformation is more complicated | |
16 | # if (/^(.*?)\b($pat)\b(.*)$/o) { | |
17 | # my $head = "$1#$2#"; | |
18 | # $_ = $3; | |
19 | # while (/^(.*?)\b($pat)\b(.*)$/o) { | |
20 | # $head .= "$1#$2#"; | |
21 | # $_ = $3; | |
22 | # } | |
23 | # print "$ARGV\:$.\:$head$_\n"; | |
24 | # } | |
2bd2b9e0 | 25 | } |
26 | continue { | |
27 | close ARGV if eof; | |
28 | } | |
29 | __END__ | |
30 | Argv | |
31 | Cmd | |
32 | DBcv | |
33 | DBgv | |
34 | DBline | |
35 | DBsignal | |
36 | DBsingle | |
37 | DBsub | |
38 | DBtrace | |
39 | No | |
40 | Sv | |
41 | Xpv | |
42 | Yes | |
43 | amagic_generation | |
44 | ampergv | |
45 | an | |
46 | archpat_auto | |
47 | argvgv | |
48 | argvoutgv | |
49 | av_fetch_sv | |
50 | basetime | |
51 | beginav | |
52 | bodytarget | |
53 | bostr | |
54 | bufend | |
55 | bufptr | |
56 | cddir | |
57 | chopset | |
58 | collation_ix | |
59 | collation_name | |
60 | collation_standard | |
61 | collxfrm_base | |
62 | collxfrm_mult | |
63 | colors | |
64 | colorset | |
65 | compcv | |
66 | compiling | |
67 | comppad | |
68 | comppad_name | |
69 | comppad_name_fill | |
70 | comppad_name_floor | |
71 | cop_seqmax | |
72 | copline | |
73 | cryptseen | |
74 | cshlen | |
75 | cshname | |
76 | curcop | |
77 | curcopdb | |
78 | curinterp | |
79 | curpad | |
80 | curpm | |
81 | curstack | |
82 | curstackinfo | |
83 | curstash | |
84 | curstname | |
2bd2b9e0 | 85 | dbargs |
86 | debdelim | |
87 | debname | |
88 | debstash | |
89 | debug | |
90 | defgv | |
91 | defoutgv | |
92 | defstash | |
93 | delaymagic | |
94 | diehook | |
95 | dirty | |
96 | dlevel | |
97 | dlmax | |
98 | do_undump | |
99 | doextract | |
100 | doswitches | |
101 | dowarn | |
102 | dumplvl | |
103 | e_script | |
104 | egid | |
105 | endav | |
106 | envgv | |
107 | errgv | |
108 | error_count | |
109 | euid | |
2bd2b9e0 | 110 | eval_root |
111 | eval_start | |
112 | evalseq | |
113 | exitlist | |
114 | exitlistlen | |
115 | expect | |
116 | extralen | |
117 | fdpid | |
118 | filemode | |
119 | firstgv | |
120 | forkprocess | |
121 | formfeed | |
122 | formtarget | |
123 | generation | |
124 | gensym | |
125 | gid | |
126 | globalstash | |
127 | he_root | |
128 | hexdigit | |
129 | hintgv | |
130 | hints | |
131 | hv_fetch_ent_mh | |
132 | hv_fetch_sv | |
133 | in_clean_all | |
134 | in_clean_objs | |
135 | in_eval | |
136 | in_my | |
137 | in_my_stash | |
138 | incgv | |
139 | initav | |
140 | inplace | |
141 | last_in_gv | |
142 | last_lop | |
143 | last_lop_op | |
144 | last_proto | |
145 | last_uni | |
146 | lastfd | |
147 | lastgotoprobe | |
148 | lastscream | |
149 | lastsize | |
150 | lastspbase | |
151 | laststatval | |
152 | laststype | |
153 | leftgv | |
154 | lex_brackets | |
155 | lex_brackstack | |
156 | lex_casemods | |
157 | lex_casestack | |
158 | lex_defer | |
159 | lex_dojoin | |
160 | lex_expect | |
161 | lex_fakebrack | |
162 | lex_formbrack | |
163 | lex_inpat | |
164 | lex_inwhat | |
165 | lex_op | |
166 | lex_repl | |
167 | lex_starts | |
168 | lex_state | |
169 | lex_stuff | |
170 | lineary | |
171 | linestart | |
172 | linestr | |
173 | localizing | |
174 | localpatches | |
175 | main_cv | |
176 | main_root | |
177 | main_start | |
178 | mainstack | |
179 | malloc_mutex | |
180 | markstack | |
181 | markstack_max | |
182 | markstack_ptr | |
183 | max_intro_pending | |
184 | maxo | |
185 | maxscream | |
186 | maxsysfd | |
187 | mess_sv | |
188 | min_intro_pending | |
189 | minus_F | |
190 | minus_a | |
191 | minus_c | |
192 | minus_l | |
193 | minus_n | |
194 | minus_p | |
195 | modcount | |
196 | modglobal | |
197 | multi_close | |
198 | multi_end | |
199 | multi_open | |
200 | multi_start | |
201 | multiline | |
202 | mystrk | |
203 | na | |
204 | nexttoke | |
205 | nexttype | |
206 | nextval | |
207 | nice_chunk | |
208 | nice_chunk_size | |
209 | ninterps | |
210 | nomemok | |
2bd2b9e0 | 211 | numeric_local |
212 | numeric_name | |
213 | numeric_standard | |
214 | ofmt | |
215 | ofs | |
216 | ofslen | |
217 | oldbufptr | |
218 | oldlastpm | |
219 | oldname | |
220 | oldoldbufptr | |
221 | op | |
222 | op_mask | |
223 | op_seqmax | |
224 | opsave | |
225 | origalen | |
226 | origargc | |
227 | origargv | |
228 | origenviron | |
229 | origfilename | |
230 | ors | |
231 | orslen | |
232 | osname | |
233 | pad_reset_pending | |
234 | padix | |
235 | padix_floor | |
2bd2b9e0 | 236 | patchlevel |
237 | patleave | |
238 | pending_ident | |
239 | perl_destruct_level | |
240 | perldb | |
241 | pidstatus | |
242 | preambleav | |
243 | preambled | |
244 | preprocess | |
245 | profiledata | |
246 | reg_eval_set | |
247 | reg_flags | |
248 | reg_start_tmp | |
249 | reg_start_tmpl | |
250 | regbol | |
251 | regcc | |
252 | regcode | |
253 | regcomp_parse | |
254 | regcomp_rx | |
255 | regcompp | |
256 | regdata | |
257 | regdummy | |
258 | regendp | |
259 | regeol | |
260 | regexecp | |
261 | regflags | |
262 | regindent | |
263 | reginput | |
264 | reginterp_cnt | |
265 | reglastparen | |
266 | regnarrate | |
267 | regnaughty | |
268 | regnpar | |
269 | regprecomp | |
270 | regprev | |
271 | regprogram | |
272 | regsawback | |
273 | regseen | |
274 | regsize | |
275 | regstartp | |
276 | regtill | |
277 | regxend | |
278 | replgv | |
279 | restartop | |
280 | retstack | |
281 | retstack_ix | |
282 | retstack_max | |
283 | rightgv | |
284 | rs | |
285 | rsfp | |
286 | rsfp_filters | |
287 | runops | |
288 | savestack | |
289 | savestack_ix | |
290 | savestack_max | |
291 | sawampersand | |
292 | sawstudy | |
293 | sawvec | |
294 | scopestack | |
295 | scopestack_ix | |
296 | scopestack_max | |
297 | screamfirst | |
298 | screamnext | |
299 | secondgv | |
300 | seen_evals | |
301 | seen_zerolen | |
302 | sh_path | |
303 | siggv | |
304 | sighandlerp | |
305 | sortcop | |
306 | sortcxix | |
307 | sortstash | |
308 | specialsv_list | |
309 | splitstr | |
310 | stack_base | |
311 | stack_max | |
312 | stack_sp | |
313 | start_env | |
314 | statbuf | |
315 | statcache | |
316 | statgv | |
317 | statname | |
318 | statusvalue | |
319 | statusvalue_vms | |
320 | stdingv | |
321 | strchop | |
322 | strtab | |
323 | sub_generation | |
324 | sublex_info | |
325 | subline | |
326 | subname | |
327 | sv_arenaroot | |
328 | sv_count | |
2bd2b9e0 | 329 | sv_no |
330 | sv_objcount | |
331 | sv_root | |
332 | sv_undef | |
333 | sv_yes | |
2bd2b9e0 | 334 | sys_intern |
335 | tainted | |
336 | tainting | |
337 | thisexpr | |
338 | thr_key | |
2bd2b9e0 | 339 | timesbuf |
340 | tmps_floor | |
341 | tmps_ix | |
342 | tmps_max | |
343 | tmps_stack | |
344 | tokenbuf | |
345 | top_env | |
346 | toptarget | |
347 | uid | |
348 | unsafe | |
349 | warnhook | |
350 | xiv_arenaroot | |
351 | xiv_root | |
352 | xnv_root | |
353 | xpv_root | |
354 | xrv_root | |
355 | piMem | |
356 | piENV | |
357 | piStdIO | |
358 | piLIO | |
359 | piDir | |
360 | piSock | |
361 | piProc |