在 Mac 上用 Perl 解析 £

Question

我正在尝试在 Mac 运行 El Capitan 上使用 perl 解析包含英国货币 £ 符号的行，但无法解析它。理想情况下，我想用它拆分一个字符串

@Line=split("£",$Hit);

但我什至无法使用正则表达式。转义不起作用这是 Mac 字符集问题吗？终端上的清单显示一个？代替 £.

目标文本来自 Seamonkey 的 Composer HTML 中的命名锚点：

<a name="word1£word2">

Answer 1

一个简单的答案是

@Line=split("\N{U+00A3}",$Hit);

其中 \N{U+00A3} 是 £ 的 Unicode。

Answer 2

请使用 utf8 pragma，因为该符号是 unicode 字符。这是示例代码。

use strict;

use utf8;

my $str = qq~<a name="word1£word2">~;
my ($first, $second) = split("£", $str);

print "$first  $second\n";

parsing £ in Perl on a Mac