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

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

例如：

‘It’s raining again!’

打印

It’s raining again!

非常感谢

解决方法

如果您假设单引号始终以空格开头或后跟空格,则以下一对正则表达式应该起作用：

$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