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

Question

我想知道如何在 perl 中删除单引号而不是撇号。

例如:

'It's raining again!'

打印

It's raining again!

非常感谢

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