我的Perl源代码包含这样的UTF-8内容

# Einige Konstanten für reguläre Ausdrücke, um die Lesbarkeit zu
# erhöhen.
my $Marker = qr/[.·<>=-]/x;
my $Buchstabe = qr/(?: [^.·<>=-] | ch)/x;
my $Vokal = qr/[aeiouäëïöüy]/x;
# Konsonant: nicht Vokal, aber Buchstabe.
my $Konsonant = qr/(?! $Vokal ) $Buchstabe/x;

但是,HDB调试器浏览器窗口将代码显示为Latin1编码:

hdb output

查看一下HTML源代码,我发现它是用UTF-8正确编码的;这意味着从Perl的调试界面到HTML页面的某个地方使用了错误的编码.

注意,perl -d运行得很好,并且在我的GNU/Linux KDE终端上正确地显示了源代码.

我怎么才能解决这个问题呢?是否有配置文件?这是个窃听器吗?我使用的是Devel::hdb版本0.25.

推荐答案

好像在line 27号方向有一辆decode_utf8()缺失的车:

@rv = map { [ $_, $_ + 0 ] } @$file;

如果我将此行更改为

@rv = map { [ decode_utf8($_), $_ + 0 ] } @$file;

并从Encode导入decode_utf8,在此之前,我得到以下输出:

enter image description here

Html相关问答推荐

卡片上方的文本

如何将值从Google Sheets侧边栏中的表单中的输入传递到Google Sheets单元格中使用Textile()

当使用浮动标签和大小时,如何在 Select 组件中有更多可见选项?

如何使用css为动态用户输入矩阵添加背景色?

小虫?CSS Flexbox间隙应用于两个内联文本块之间,因为它们之间存在绝对定位的元素

元素offsetTop在滚动容器中时没有更改

减小HTML负载中base64字符串的大小

阴影部分内部的ionic Select 元素

悬停表格单元格文本时,使元素的字体大小更大,同时保持表格单元格的高度不变

在显示 swift ui 之前加载下一个 YouTube 视频

如何使用 HTML 将对象数组发送到 Nodejs Express

MUI 日期 Select 器要包含的日期

如何在黑暗模式切换中添加图标

为什么可滚动弹性项目需要 flex-basis: 0 ?

动态计算高度时 Div 不保持 1/1 纵横比

从垫分页器中删除输入边框

如何在div中设计伪元素?

如何使 Shiny 中的 selectInput Select 扩展到井面板之外或以其他方式使它们更容易被用户看到?

使用模板循环每行列出 3 个 bootstrap 卡

无法使用 HTML 中的 Bootstrap 自上而下居中