我今天遇到了一个让我停下来思考的功能.我想不出有这么好的理由：
sub replace_string {
my $string = shift;
my $regex = shift;
my $replace = shift;
$string =~ s/$regex/$replace/gi;
return $string;
}
我能看到的唯一可能的值是,它使您能够控制替换使用的默认选项,但我认为没有用.看到这个函数后,我的第一反应就是“这是做什么的？”.一旦我了解它的作用,我就会假设从那时起就做到了.这意味着如果它发生变化,它将破坏我需要它的任何代码.这意味着该功能可能永远不会改变,或者更改它会破坏大量代码.
现在我想追踪原来的程序员,并在他或她身上打败一些感觉.这是一个有效的愿望,还是我错过了这个功能带来的一些价值？
解决方法
该功能的问题包括：
>不透明：replace_string不会告诉您在不进行转义的情况下执行不区分大小写的全局替换.
>非惯用语：$string = ~s {$this} {$that} gi是你可以学习它曾经意味着什么的东西,它不像它的一些奇怪的角落特征. replace_string每个人都必须学习它的细节,并且对于每个编写它的人来说它都会有所不同.
>不灵活：想要非全球性的搜索和替换？抱歉.你可以通过传入一个qr //来输入一些修饰符,但这比它隐藏的s //更高级的知识.
>不安全：用户可能认为该函数采用字符串,而不是正则表达式.如果他们放入未经检查的用户输入,他们就会打开一个潜在的安全漏洞.
>更慢：只是添加最后的侮辱.
优点是：
> Literate：函数名称解释了它的作用,而不必检查正则表达式的细节(但它给出了一个不完整的解释).
>默认值：g和i默认值始终存在(但名称不明显).
>更简单的语法：不必担心分隔符(不是s {} {}很难).
>保护免受全局副作用：正则表达式匹配设置全局变量的沙拉($1,$等等),但它们会自动在本地作用于该函数.如果你将它们用于另一个正则表达式,它们不会干涉.
封装有点过分热心.