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

发布时间：2020-12-15 22:06:45 所属栏目：大数据来源：网络整理

导读：我想知道如何在perl中删除单引号但不删除撇号. 例如： ‘It’s raining again!’ 打印 It’s raining again! 非常感谢解决方法如果您假设单引号始终以空格开头或后跟空格,则以下一对正则表达式应该起作用： $line =~ s/s'/ /g; #preceded by whitespace$l

我想知道如何在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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!