以前在网上搜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"