Perl

首先我不喜欢Perl 外貌党应该都更喜欢Python吧 不过工作中要用这个 没有办法 Perl以文本处理和强大的正则笑傲群雄 今天我同事却碰到了一个替换的问题来问我 他想把一段很长的文本中的一大段替换成另一段 而这三段已经分别在变量中了 因为很长 所以当然有很多正则的关键字啦 几乎没法用正则 一个一个转义太蛋疼了 我就帮他找字符串替换的办法 我一直自命特别擅长google 不过这是我最耻辱的一次 替换 字符串 replace 等各种关键字组合 出来的结果基本全是讲正则的 搜 字符串函数 这次结果好一点 结果内容里却没有找到替换函数…… 在同事等不急我 自己写了个替换方法的时候 我终于在Perl教程里翻出来了 my $string = "Hello, world!"; substr($string, 0, 5) = "Goodbye"; # $string is now "Goodbye, world!" 这是多么诡异的语法啊…… 虽然看着也有点那个意思 但是我还没有在其他各种语言里见到这样诡异的语法