在perl字符串中,如何用2个ascii连字符替换unicode em dash?

时间:2016-03-07 04:29:48

标签: perl unicode

我首先尝试使用以下方式找到它:

    $w = index($line, "\x{2014}");

我没有语法错误,但$ w从未> = 0。

我试过了:

    $line =~ s/\x{2014}/--/g;

这也不起作用,即:没有做出任何改变。

进行交换的最简单方法是什么?

如果之前的帖子中有解释,我没看到。

1 个答案:

答案 0 :(得分:0)

适合我:

#!/bin/perl -w

use feature 'unicode_strings';
use utf8;

$line = "first — and second";
$line =~ s/\x{2014}/--/g;
print("$line\n");
# => first -- and second