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 patchlevel
 242 patleave
 243 pending_ident
 244 perl_destruct_level
 245 perldb
 246 pidstatus
 247 preambleav
 248 preambled
 249 preprocess
 250 profiledata
 251 reg_eval_set
 252 reg_flags
 253 reg_start_tmp
 254 reg_start_tmpl
 255 regbol
 256 regcc
 257 regcode
 258 regcomp_parse
 259 regcomp_rx
 260 regcompp
 261 regdata
 262 regdummy
 263 regendp
 264 regeol
 265 regexecp
 266 regflags
 267 regindent
 268 reginput
 269 reginterp_cnt
 270 reglastparen
 271 regnarrate
 272 regnaughty
 273 regnpar
 274 regprecomp
 275 regprev
 276 regprogram
 277 regsawback
 278 regseen
 279 regsize
 280 regstartp
 281 regtill
 282 regxend
 283 replgv
 284 restartop
 285 retstack
 286 retstack_ix
 287 retstack_max
 288 rightgv
 289 rs
 290 rsfp
 291 rsfp_filters
 292 runops
 293 savestack
 294 savestack_ix
 295 savestack_max
 296 sawampersand
 297 sawstudy
 298 sawvec
 299 scopestack
 300 scopestack_ix
 301 scopestack_max
 302 screamfirst
 303 screamnext
 304 secondgv
 305 seen_evals
 306 seen_zerolen
 307 sh_path
 308 siggv
 309 sighandlerp
 310 sortcop
 311 sortcxix
 312 sortstash
 313 specialsv_list
 314 splitstr
 315 stack_base
 316 stack_max
 317 stack_sp
 318 start_env
 319 statbuf
 320 statcache
 321 statgv
 322 statname
 323 statusvalue
 324 statusvalue_vms
 325 stdingv
 326 strchop
 327 strtab
 328 sub_generation
 329 sublex_info
 330 subline
 331 subname
 332 sv_arenaroot
 333 sv_count
 334 sv_mutex
 335 sv_no
 336 sv_objcount
 337 sv_root
 338 sv_undef
 339 sv_yes
 340 svref_mutex
 341 sys_intern
 342 tainted
 343 tainting
 344 thisexpr
 345 thr_key
 346 threadnum
 347 threads_mutex
 348 threadsv_names
 349 thrsv
 350 timesbuf
 351 tmps_floor
 352 tmps_ix
 353 tmps_max
 354 tmps_stack
 355 tokenbuf
 356 top_env
 357 toptarget
 358 uid
 359 unsafe
 360 warnhook
 361 xiv_arenaroot
 362 xiv_root
 363 xnv_root
 364 xpv_root
 365 xrv_root
 366 piMem
 367 piENV
 368 piStdIO
 369 piLIO
 370 piDir
 371 piSock
 372 piProc