以前在网上搜Perl的正则表达式,搜到的大部分都是正则表达式的语法列表,而很少有提到实现这些正则表达式的函数。

Perl的正则表达式函数为 “=~“

$string = "I love my Boss not my boss. Boss is a cat";

$string =~ s/(Boss)/<$1>/;

#这时候 $string中所有的Boss都被替换为<Boss>,现在这个字符串变成 “I love my <Boss> not my boss. <Boss> is a cat"