566 |
|
|
567 |
sub _get_regex { |
sub _get_regex { |
568 |
my ($sf,$from,$to) = @_; |
my ($sf,$from,$to) = @_; |
569 |
|
if ($from =~ m/^regex:(.+)$/) { |
570 |
|
$from = $1; |
571 |
|
} else { |
572 |
|
$from = '\Q' . $from . '\E'; |
573 |
|
} |
574 |
if ($sf =~ /^\^/) { |
if ($sf =~ /^\^/) { |
575 |
return |
return |
576 |
's/\Q'. $sf .'\E([^\^]*?)\Q'. $from .'\E([^\^]*?)/'. $sf .'$1'. $to .'$2/'; |
's/\Q'. $sf .'\E([^\^]*?)'. $from .'([^\^]*?)/'. $sf .'$1'. $to .'$2/'; |
577 |
} else { |
} else { |
578 |
return |
return |
579 |
's/\Q'. $from .'\E/'. $to .'/g'; |
's/'. $from .'/'. $to .'/g'; |
580 |
} |
} |
581 |
} |
} |
582 |
|
|