| 1 | #!/usr/bin/perl -w |
| 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 (<>) { |
| 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 | # } |
| 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 |
| 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 |
| 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 | ninterps |
| 208 | nomemok |
| 209 | numeric_local |
| 210 | numeric_name |
| 211 | numeric_standard |
| 212 | ofmt |
| 213 | ofs |
| 214 | ofslen |
| 215 | oldbufptr |
| 216 | oldlastpm |
| 217 | oldname |
| 218 | oldoldbufptr |
| 219 | op |
| 220 | op_mask |
| 221 | op_seqmax |
| 222 | opsave |
| 223 | origalen |
| 224 | origargc |
| 225 | origargv |
| 226 | origenviron |
| 227 | origfilename |
| 228 | ors |
| 229 | orslen |
| 230 | osname |
| 231 | pad_reset_pending |
| 232 | padix |
| 233 | padix_floor |
| 234 | patchlevel |
| 235 | patleave |
| 236 | pending_ident |
| 237 | perl_destruct_level |
| 238 | perldb |
| 239 | pidstatus |
| 240 | preambleav |
| 241 | preambled |
| 242 | preprocess |
| 243 | profiledata |
| 244 | reg_eval_set |
| 245 | reg_flags |
| 246 | reg_start_tmp |
| 247 | reg_start_tmpl |
| 248 | regbol |
| 249 | regcc |
| 250 | regcode |
| 251 | regcomp_parse |
| 252 | regcomp_rx |
| 253 | regcompp |
| 254 | regdata |
| 255 | regdummy |
| 256 | regendp |
| 257 | regeol |
| 258 | regexecp |
| 259 | regflags |
| 260 | regindent |
| 261 | reginput |
| 262 | reginterp_cnt |
| 263 | reglastparen |
| 264 | regnarrate |
| 265 | regnaughty |
| 266 | regnpar |
| 267 | regprecomp |
| 268 | regprev |
| 269 | regprogram |
| 270 | regsawback |
| 271 | regseen |
| 272 | regsize |
| 273 | regstartp |
| 274 | regtill |
| 275 | regxend |
| 276 | replgv |
| 277 | restartop |
| 278 | retstack |
| 279 | retstack_ix |
| 280 | retstack_max |
| 281 | rightgv |
| 282 | rs |
| 283 | rsfp |
| 284 | rsfp_filters |
| 285 | runops |
| 286 | savestack |
| 287 | savestack_ix |
| 288 | savestack_max |
| 289 | sawampersand |
| 290 | sawstudy |
| 291 | sawvec |
| 292 | scopestack |
| 293 | scopestack_ix |
| 294 | scopestack_max |
| 295 | screamfirst |
| 296 | screamnext |
| 297 | secondgv |
| 298 | seen_evals |
| 299 | seen_zerolen |
| 300 | sh_path |
| 301 | siggv |
| 302 | sighandlerp |
| 303 | sortcop |
| 304 | sortcxix |
| 305 | sortstash |
| 306 | specialsv_list |
| 307 | splitstr |
| 308 | stack_base |
| 309 | stack_max |
| 310 | stack_sp |
| 311 | start_env |
| 312 | statbuf |
| 313 | statcache |
| 314 | statgv |
| 315 | statname |
| 316 | statusvalue |
| 317 | statusvalue_vms |
| 318 | stdingv |
| 319 | strchop |
| 320 | strtab |
| 321 | sub_generation |
| 322 | sublex_info |
| 323 | subline |
| 324 | subname |
| 325 | sv_arenaroot |
| 326 | sv_count |
| 327 | sv_no |
| 328 | sv_objcount |
| 329 | sv_root |
| 330 | sv_undef |
| 331 | sv_yes |
| 332 | sys_intern |
| 333 | tainted |
| 334 | tainting |
| 335 | thisexpr |
| 336 | thr_key |
| 337 | timesbuf |
| 338 | tmps_floor |
| 339 | tmps_ix |
| 340 | tmps_max |
| 341 | tmps_stack |
| 342 | tokenbuf |
| 343 | top_env |
| 344 | toptarget |
| 345 | uid |
| 346 | unsafe |
| 347 | warnhook |
| 348 | xiv_arenaroot |
| 349 | xiv_root |
| 350 | xnv_root |
| 351 | xpv_root |
| 352 | xrv_root |
| 353 | piMem |
| 354 | piENV |
| 355 | piStdIO |
| 356 | piLIO |
| 357 | piDir |
| 358 | piSock |
| 359 | piProc |