Question

我正在尝试从字符串中删除撇号和双引号，并注意到有各种版本创建到我使用的数据中，具体取决于它的创建方式。例如，Word文档倾向于使用这些：

It’s raining again. 
What do you mean by “weird”?

文本编辑器是这样的：

It's raining again.
What do you mean by "weird"?

当我浏览各种角色图表和数据时，我注意到引号和撇号还有其他变体，例如：http://www.fileformat.info/info/unicode/char/0022/index.htm

虽然我可以通过并合理地找到它们，但是现有的Perl正则表达式或函数是否会删除引号和撇号的所有变体？

Answer 1

为了删除所有引号和叛逆者，您可以使用

 [\p{Pi}\p{Pf}'"]

用空字符串替换。

请参阅demo

IDEONE demo：

#!/usr/bin/perl
use utf8;
my $st = "“Quotes1” «Quotes2» ‘Quotes3’ 'Quotes4' \"Quotes5\"";
print "Before: $st\n";
$st =~ s/[\p{Pi}\p{Pf}'"]//g;
print "After: $st\n";

“说”

Before: “Quotes1” «Quotes2» ‘Quotes3’ 'Quotes4' "Quotes5"
After: Quotes1 Quotes2 Quotes3 Quotes4 Quotes5

使用Perl正则表达式

1 个答案: