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

Question

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

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

我没有语法错误，但$ w从未＆gt; = 0。

我试过了：

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

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

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

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

Answer 1

适合我：

#!/bin/perl -w

use feature 'unicode_strings';
use utf8;

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