-#!/l/local/bin/perl -w
+#!/usr/bin/perl -w
$pat = '';
# construct word list
# grep
while (<>) {
- if (/^(.*?)\b($pat)\b(.*)$/o) {
- my $head = "$1#$2#";
- $_ = $3;
- while (/^(.*?)\b($pat)\b(.*)$/o) {
- $head .= "$1#$2#";
- $_ = $3;
- }
- print "$ARGV\:$.\:$head$_\n";
- }
+ print "$ARGV\:$.\:$_" if s/\b($pat)\b/#$1#/og;
+# this variant might useful if the transformation is more complicated
+# if (/^(.*?)\b($pat)\b(.*)$/o) {
+# my $head = "$1#$2#";
+# $_ = $3;
+# while (/^(.*?)\b($pat)\b(.*)$/o) {
+# $head .= "$1#$2#";
+# $_ = $3;
+# }
+# print "$ARGV\:$.\:$head$_\n";
+# }
}
continue {
close ARGV if eof;
curstackinfo
curstash
curstname
-curthr
dbargs
debdelim
debname
errgv
error_count
euid
-eval_cond
-eval_mutex
-eval_owner
eval_root
eval_start
evalseq
nice_chunk_size
ninterps
nomemok
-nrs
-nthreads
-nthreads_cond
numeric_local
numeric_name
numeric_standard
subname
sv_arenaroot
sv_count
-sv_mutex
sv_no
sv_objcount
sv_root
sv_undef
sv_yes
-svref_mutex
sys_intern
tainted
tainting
thisexpr
thr_key
-threadnum
-threads_mutex
-threadsv_names
-thrsv
timesbuf
tmps_floor
tmps_ix