解决方法
如果您假设单引号始终以空格开头或后跟空格,则以下一对正则表达式应该起作用：
$line =~ s/\s'/ /g; #preceded by whitespace $line =~ s/'\s/ /g; #followed by whitespace
你还需要考虑字符串是否以单引号开头或结尾：
$str =~ s/^'//; #at the start of a string $str =~ s/'$//; #at the end of a string