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     if (/^(.*?)\b($pat)\b(.*)$/o) {
  15         my $head = "$1#$2#";
  16         $_ = $3;
  17         while (/^(.*?)\b($pat)\b(.*)$/o) {
  18             $head .= "$1#$2#";
  19             $_ = $3;
  20         }
  21         print "$ARGV\:$.\:$head$_\n";
  22     }
  23 }
  24 continue {
  25     close ARGV if eof;
  26 }
  27 __END__
  28 Argv
  29 Cmd
  30 DBcv
  31 DBgv
  32 DBline
  33 DBsignal
  34 DBsingle
  35 DBsub
  36 DBtrace
  37 No
  38 Sv
  39 Xpv
  40 Yes
  41 amagic_generation
  42 ampergv
  43 an
  44 archpat_auto
  45 argvgv
  46 argvoutgv
  47 av_fetch_sv
  48 basetime
  49 beginav
  50 bodytarget
  51 bostr
  52 bufend
  53 bufptr
  54 cddir
  55 chopset
  56 collation_ix
  57 collation_name
  58 collation_standard
  59 collxfrm_base
  60 collxfrm_mult
  61 colors
  62 colorset
  63 compcv
  64 compiling
  65 comppad
  66 comppad_name
  67 comppad_name_fill
  68 comppad_name_floor
  69 cop_seqmax
  70 copline
  71 cryptseen
  72 cshlen
  73 cshname
  74 curcop
  75 curcopdb
  76 curinterp
  77 curpad
  78 curpm
  79 curstack
  80 curstackinfo
  81 curstash
  82 curstname
  83 curthr
  84 dbargs
  85 debdelim
  86 debname
  87 debstash
  88 debug
  89 defgv
  90 defoutgv
  91 defstash
  92 delaymagic
  93 diehook
  94 dirty
  95 dlevel
  96 dlmax
  97 do_undump
  98 doextract
  99 doswitches
 100 dowarn
 101 dumplvl
 102 e_script
 103 egid
 104 endav
 105 envgv
 106 errgv
 107 error_count
 108 euid
 109 eval_cond
 110 eval_mutex
 111 eval_owner
 112 eval_root
 113 eval_start
 114 evalseq
 115 exitlist
 116 exitlistlen
 117 expect
 118 extralen
 119 fdpid
 120 filemode
 121 firstgv
 122 forkprocess
 123 formfeed
 124 formtarget
 125 generation
 126 gensym
 127 gid
 128 globalstash
 129 he_root
 130 hexdigit
 131 hintgv
 132 hints
 133 hv_fetch_ent_mh
 134 hv_fetch_sv
 135 in_clean_all
 136 in_clean_objs
 137 in_eval
 138 in_my
 139 in_my_stash
 140 incgv
 141 initav
 142 inplace
 143 last_in_gv
 144 last_lop
 145 last_lop_op
 146 last_proto
 147 last_uni
 148 lastfd
 149 lastgotoprobe
 150 lastscream
 151 lastsize
 152 lastspbase
 153 laststatval
 154 laststype
 155 leftgv
 156 lex_brackets
 157 lex_brackstack
 158 lex_casemods
 159 lex_casestack
 160 lex_defer
 161 lex_dojoin
 162 lex_expect
 163 lex_fakebrack
 164 lex_formbrack
 165 lex_inpat
 166 lex_inwhat
 167 lex_op
 168 lex_repl
 169 lex_starts
 170 lex_state
 171 lex_stuff
 172 lineary
 173 linestart
 174 linestr
 175 localizing
 176 localpatches
 177 main_cv
 178 main_root
 179 main_start
 180 mainstack
 181 malloc_mutex
 182 markstack
 183 markstack_max
 184 markstack_ptr
 185 max_intro_pending
 186 maxo
 187 maxscream
 188 maxsysfd
 189 mess_sv
 190 min_intro_pending
 191 minus_F
 192 minus_a
 193 minus_c
 194 minus_l
 195 minus_n
 196 minus_p
 197 modcount
 198 modglobal
 199 multi_close
 200 multi_end
 201 multi_open
 202 multi_start
 203 multiline
 204 mystrk
 205 na
 206 nexttoke
 207 nexttype
 208 nextval
 209 nice_chunk
 210 nice_chunk_size
 211 ninterps
 212 nomemok
 213 nrs
 214 nthreads
 215 nthreads_cond
 216 numeric_local
 217 numeric_name
 218 numeric_standard
 219 ofmt
 220 ofs
 221 ofslen
 222 oldbufptr
 223 oldlastpm
 224 oldname
 225 oldoldbufptr
 226 op
 227 op_mask
 228 op_seqmax
 229 opsave
 230 origalen
 231 origargc
 232 origargv
 233 origenviron
 234 origfilename
 235 ors
 236 orslen
 237 osname
 238 pad_reset_pending
 239 padix
 240 padix_floor
 241 parsehook
 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