- foreach my $patt (keys %{ $split_on_delimiters->{$f}->{$sf} }) {
- my $new_sf = $split_on_delimiters->{$f}->{$sf}->{$patt} || die "no field?";
-warn "----- patt: $patt -> $new_sf\n";
+ foreach my $from (keys %{ $split_on_delimiters->{$f}->{$sf} }) {
+ my $to = $split_on_delimiters->{$f}->{$sf}->{$from};
+ #die "no field?" unless defined($to);
+warn "----- transform: |$from| -> |$to|\n";
+
+ if ($sf =~ /^\^/) {
+ my $regex =
+ 's/\Q'. $sf .'\E([^\^]+)\Q'. $from .'\E([^\^]+)/'. $sf .'$1'. $to .'$2/g';
+ push @{ $regexpes->{$f} }, $regex;
+warn ">>>>> $regex [sf]\n";
+ } else {
+ my $regex =
+ 's/\Q'. $from .'\E/'. $to .'/g';
+ push @{ $regexpes->{$f} }, $regex;
+warn ">>>>> $regex [global]\n";
+ }