Lines Matching refs:rpl
624 "rpl=s" => \@opt::rpl,
817 %Global::rpl = %Global::replace;
847 sub rpl { subroutine
852 $Global::rpl{$new} = $Global::rpl{$old};
853 delete $Global::rpl{$old};
860 if(defined $opt::plus) { %Global::rpl = (%Global::plus,%Global::rpl); }
861 if(defined $opt::I) { rpl('{}',$opt::I); }
862 if(defined $opt::U) { rpl('{.}',$opt::U); }
863 if(defined $opt::i and $opt::i) { rpl('{}',$opt::i); }
864 if(defined $opt::basenamereplace) { rpl('{/}',$opt::basenamereplace); }
865 if(defined $opt::dirnamereplace) { rpl('{//}',$opt::dirnamereplace); }
866 if(defined $opt::seqreplace) { rpl('{#}',$opt::seqreplace); }
867 if(defined $opt::slotreplace) { rpl('{%}',$opt::slotreplace); }
869 rpl('{/.}',$opt::basenameextensionreplace);
871 for(@opt::rpl) {
875 $Global::rpl{$shorthand} = $long;
6876 for my $rpl (keys %Global::rpl) {
6881 \Q$rpl\E/$1\257<$Global::rpl{$rpl}\257>/xg) {
6887 \Q$rpl\E/$1\257<$Global::rpl{$rpl}\257>/x) {}
6892 $posrpl = $rpl;
6896 s/\{(-?\d+)\Q$posrpl\E/\257<$1 $Global::rpl{$rpl}\257>/g;