perl - 如何用Perl脚本替换变量选项

在perl中，文本替换非常简单且功能强大。
我想做一个变量替换的脚本，例如:

if ( $IgnoreCase ) {$opt = "gi"} else {$opt = "g"}

$string =~ s/$source/$replace/$opt;

结果是:



是否可以执行选项变量？

最佳答案

由于在所有情况下都可以使用/g，

my $opt = $IgnoreCase ? "(?i)" : "";

$string =~ s/$opt$source/$replace/g;

perldoc perlre 中有关此主题的更多信息

关于perl - 如何用Perl脚本替换变量选项，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/47568686/