Lines Matching refs:pat
26 $pat =~ s/%.*$//g;
31 $pat = $1;
35 $pat =~ s/\d//g;
36 if ($origpat eq $pat) {
40 push @patlist, $pat;
41 $pattab{$pat} = $origpat;
42 $repltab{$pat} = $repl;
43 $replbeg{$pat} = $beg - 1;
44 $repllen{$pat} = $len;
47 $pat = $1;
49 $pat =~ s/\d//g;
50 if ($origpat eq $pat) {
54 push @patlist, $pat;
55 $pattab{$pat} = $origpat;
56 $repltab{$pat} = $repl;
57 $replbeg{$pat} = 0;
58 $repllen{$pat} = enclen($pat);
61 $pat = $1;
62 $pat =~ s/\d//g;
63 push @patlist, $pat;
64 $pattab{$pat} = $origpat;
68 foreach $pat (@patlist) {
69 $patsize = length $pat;
72 $subpat = substr ($pat, $i, $j);
74 print "$pattab{$subpat} is embedded in $pattab{$pat}\n";
75 $newpat = substr $pat, 0, $i + $j;
78 substr ($pat, 0, $i).$pattab{$subpat};
79 $ss = substr $pat, 0, $i;
83 $begcorr = (($pat =~ /^[.]/) && !($subpat =~ /^[.]/)) ? 1 : 0;
99 foreach $pat (@newpatlist) {
100 if (defined $newrepltab{$pat}) {
101 print OUT $newpattab{$pat}."/".$newrepltab{$pat}.",".($newreplbeg{$pat}+1).",".$newrepllen{$pat}."\n";
103 print OUT $newpattab{$pat}."\n";
109 my ($pat) = @_;
113 foreach $c (split (//, $pat)) {
