source:
trunk/essentials/dev-lang/perl/Porting/findvars
| Last change on this file was 3181, checked in by , 18 years ago | |
|---|---|
| File size: 3.8 KB | |
| Line | |
|---|---|
| 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 | 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 |
Note:
See TracBrowser
for help on using the repository browser.
