Porting/findvars

   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