|
Lines 636-641
sub _modify_values {
Link Here
|
| 636 |
my $regex = $params->{regex}; |
636 |
my $regex = $params->{regex}; |
| 637 |
|
637 |
|
| 638 |
if ( $regex and $regex->{search} ) { |
638 |
if ( $regex and $regex->{search} ) { |
|
|
639 |
my $replace = $regex->{replace}; |
| 640 |
$replace =~ s/"/\\"/g; # Protection from embedded code |
| 641 |
$replace = '"' . $replace . '"'; # Put in a string for /ee |
| 639 |
$regex->{modifiers} //= q||; |
642 |
$regex->{modifiers} //= q||; |
| 640 |
my @available_modifiers = qw( i g ); |
643 |
my @available_modifiers = qw( i g ); |
| 641 |
my $modifiers = q||; |
644 |
my $modifiers = q||; |
|
Lines 645-660
sub _modify_values {
Link Here
|
| 645 |
} |
648 |
} |
| 646 |
foreach my $value ( @$values ) { |
649 |
foreach my $value ( @$values ) { |
| 647 |
if ( $modifiers =~ m/^(ig|gi)$/ ) { |
650 |
if ( $modifiers =~ m/^(ig|gi)$/ ) { |
| 648 |
$value =~ s/$regex->{search}/$regex->{replace}/ig; |
651 |
$value =~ s/$regex->{search}/$replace/igee; |
| 649 |
} |
652 |
} |
| 650 |
elsif ( $modifiers eq 'i' ) { |
653 |
elsif ( $modifiers eq 'i' ) { |
| 651 |
$value =~ s/$regex->{search}/$regex->{replace}/i; |
654 |
$value =~ s/$regex->{search}/$replace/iee; |
| 652 |
} |
655 |
} |
| 653 |
elsif ( $modifiers eq 'g' ) { |
656 |
elsif ( $modifiers eq 'g' ) { |
| 654 |
$value =~ s/$regex->{search}/$regex->{replace}/g; |
657 |
$value =~ s/$regex->{search}/$replace/gee; |
| 655 |
} |
658 |
} |
| 656 |
else { |
659 |
else { |
| 657 |
$value =~ s/$regex->{search}/$regex->{replace}/; |
660 |
$value =~ s/$regex->{search}/$replace/ee; |
| 658 |
} |
661 |
} |
| 659 |
} |
662 |
} |
| 660 |
} |
663 |
} |
| 661 |
- |
|
|