Porting/findvars

   1 #!/l/local/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 curthr
  86 dbargs
  87 debdelim
  88 debname
  89 debstash
  90 debug
  91 defgv
  92 defoutgv
  93 defstash
  94 delaymagic
  95 diehook
  96 dirty
  97 dlevel
  98 dlmax
  99 do_undump
 100 doextract
 101 doswitches
 102 dowarn
 103 dumplvl
 104 e_script
 105 egid
 106 endav
 107 envgv
 108 errgv
 109 error_count
 110 euid
 111 eval_cond
 112 eval_mutex
 113 eval_owner
 114 eval_root
 115 eval_start
 116 evalseq
 117 exitlist
 118 exitlistlen
 119 expect
 120 extralen
 121 fdpid
 122 filemode
 123 firstgv
 124 forkprocess
 125 formfeed
 126 formtarget
 127 generation
 128 gensym
 129 gid
 130 globalstash
 131 he_root
 132 hexdigit
 133 hintgv
 134 hints
 135 hv_fetch_ent_mh
 136 hv_fetch_sv
 137 in_clean_all
 138 in_clean_objs
 139 in_eval
 140 in_my
 141 in_my_stash
 142 incgv
 143 initav
 144 inplace
 145 last_in_gv
 146 last_lop
 147 last_lop_op
 148 last_proto
 149 last_uni
 150 lastfd
 151 lastgotoprobe
 152 lastscream
 153 lastsize
 154 lastspbase
 155 laststatval
 156 laststype
 157 leftgv
 158 lex_brackets
 159 lex_brackstack
 160 lex_casemods
 161 lex_casestack
 162 lex_defer
 163 lex_dojoin
 164 lex_expect
 165 lex_fakebrack
 166 lex_formbrack
 167 lex_inpat
 168 lex_inwhat
 169 lex_op
 170 lex_repl
 171 lex_starts
 172 lex_state
 173 lex_stuff
 174 lineary
 175 linestart
 176 linestr
 177 localizing
 178 localpatches
 179 main_cv
 180 main_root
 181 main_start
 182 mainstack
 183 malloc_mutex
 184 markstack
 185 markstack_max
 186 markstack_ptr
 187 max_intro_pending
 188 maxo
 189 maxscream
 190 maxsysfd
 191 mess_sv
 192 min_intro_pending
 193 minus_F
 194 minus_a
 195 minus_c
 196 minus_l
 197 minus_n
 198 minus_p
 199 modcount
 200 modglobal
 201 multi_close
 202 multi_end
 203 multi_open
 204 multi_start
 205 multiline
 206 mystrk
 207 na
 208 nexttoke
 209 nexttype
 210 nextval
 211 nice_chunk
 212 nice_chunk_size
 213 ninterps
 214 nomemok
 215 nthreads
 216 nthreads_cond
 217 numeric_local
 218 numeric_name
 219 numeric_standard
 220 ofmt
 221 ofs
 222 ofslen
 223 oldbufptr
 224 oldlastpm
 225 oldname
 226 oldoldbufptr
 227 op
 228 op_mask
 229 op_seqmax
 230 opsave
 231 origalen
 232 origargc
 233 origargv
 234 origenviron
 235 origfilename
 236 ors
 237 orslen
 238 osname
 239 pad_reset_pending
 240 padix
 241 padix_floor
 242 patchlevel
 243 patleave
 244 pending_ident
 245 perl_destruct_level
 246 perldb
 247 pidstatus
 248 preambleav
 249 preambled
 250 preprocess
 251 profiledata
 252 reg_eval_set
 253 reg_flags
 254 reg_start_tmp
 255 reg_start_tmpl
 256 regbol
 257 regcc
 258 regcode
 259 regcomp_parse
 260 regcomp_rx
 261 regcompp
 262 regdata
 263 regdummy
 264 regendp
 265 regeol
 266 regexecp
 267 regflags
 268 regindent
 269 reginput
 270 reginterp_cnt
 271 reglastparen
 272 regnarrate
 273 regnaughty
 274 regnpar
 275 regprecomp
 276 regprev
 277 regprogram
 278 regsawback
 279 regseen
 280 regsize
 281 regstartp
 282 regtill
 283 regxend
 284 replgv
 285 restartop
 286 retstack
 287 retstack_ix
 288 retstack_max
 289 rightgv
 290 rs
 291 rsfp
 292 rsfp_filters
 293 runops
 294 savestack
 295 savestack_ix
 296 savestack_max
 297 sawampersand
 298 sawstudy
 299 sawvec
 300 scopestack
 301 scopestack_ix
 302 scopestack_max
 303 screamfirst
 304 screamnext
 305 secondgv
 306 seen_evals
 307 seen_zerolen
 308 sh_path
 309 siggv
 310 sighandlerp
 311 sortcop
 312 sortcxix
 313 sortstash
 314 specialsv_list
 315 splitstr
 316 stack_base
 317 stack_max
 318 stack_sp
 319 start_env
 320 statbuf
 321 statcache
 322 statgv
 323 statname
 324 statusvalue
 325 statusvalue_vms
 326 stdingv
 327 strchop
 328 strtab
 329 sub_generation
 330 sublex_info
 331 subline
 332 subname
 333 sv_arenaroot
 334 sv_count
 335 sv_mutex
 336 sv_no
 337 sv_objcount
 338 sv_root
 339 sv_undef
 340 sv_yes
 341 svref_mutex
 342 sys_intern
 343 tainted
 344 tainting
 345 thisexpr
 346 thr_key
 347 threadnum
 348 threads_mutex
 349 threadsv_names
 350 thrsv
 351 timesbuf
 352 tmps_floor
 353 tmps_ix
 354 tmps_max
 355 tmps_stack
 356 tokenbuf
 357 top_env
 358 toptarget
 359 uid
 360 unsafe
 361 warnhook
 362 xiv_arenaroot
 363 xiv_root
 364 xnv_root
 365 xpv_root
 366 xrv_root
 367 piMem
 368 piENV
 369 piStdIO
 370 piLIO
 371 piDir
 372 piSock
 373 piProc