如何在perl中删除单引号但不删除撇号

Question

我想知道如何在perl中删除单引号但不删除撇号.

例如:

'又下雨了!'

打印

又下雨了!

非常感谢

Answer 1

如果您假设单引号前面或后面始终有空格，则以下一对正则表达式应该有效：

$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