Perl разделить строку по ссылке на символьную сущность & nbsp;

Question

Perl разделить строку по ссылке на символьную сущность & nbsp;

Быстрый Perl вопрос с, надеюсь, простым ответом. Я пытаюсь выполнить разбиение строки, содержащей неразрывные пробелы ( ). Это после прочтения в html использование страницы HTML::TreeBuilder::XPath и получение строки, необходимой $titleString = $tree->findvalue('/html/head/title')

use HTML::TreeBuilder::XPath;
$tree = HTML::TreeBuilder::XPath->new;
$tree->parse_file( "filename" );
$titleString = $tree->findvalue('/html/head/title');
print "$titleString\n";

Ниже вставлена исходная строка, а ниже - строка, которая будет напечатана:

Mr&nbsp;Dan Perkins&nbsp;(Active)
Mr?Dan Perkins?(Active)

Я пробовал разделить $titleString с @parts = split('\?',$titleString); а также с оригиналом nbspХотя ни один не работал. Я догадываюсь, что есть какой-то простой код, который нужно добавить куда-нибудь?

HTML код:

<html>
<head>
<title>Dan&nbsp;Perkins&nbsp;(Active)</title>
</head>
</html>

0

perl encoding character-entities html-treebuilder

Источник

user4248989 06 окт '15 в 14:43

1 ответ

Решение

Другие вопросы по тегам perl encoding character-entities html-treebuilder

user589924 06 окт '15 в 15:04 2015-10-06 15:04 · Accepted Answer · 2015-10-06 15:04

Вам не нужно знать, как кодируется текст в документе. В качестве таких, findvalue возвращает фактический неразрывный пробел (U+00A0), когда документ содержит  , Таким образом, вы будете использовать

split(/\xA0/, $title_string)
   -or-
split(/\x{00A0}/, $title_string)
   -or-
split(/\N{U+00A0}/, $title_string)
   -or-
split(/\N{NBSP}/, $title_string)
   -or-
split(/\N{NO-BREAK SPACE}/, $title_string)