Question

我有一个Perl脚本，可将Word文档另存为HTML文档。以下代码有效：

use strict;
use Win32::OLE::Const 'Microsoft Word';
[...]
$go_word_doc->SaveAs2({
    FileName => $gs_html_name,
    FileFormat => wdFormatFilteredHTML
    });

为了以UTF-8编码输出文件，我以这种方式打开了命令：

$go_word_doc->SaveAs2({
    FileName => $gs_html_name,
    FileFormat => wdFormatFilteredHTML,
    Encoding => msoEncodingUTF8
    });

问题在于，“ msoEncodingUTF8”被看作是一个空白字，我在任何地方都找不到应该添加的内容。

有人可以帮忙吗？预先感谢。

Answer 1

MsoEncoding Enum为Windows代码页提供名称。 msoEncodingUTF8是给予UTF-8代码页65001的名称。

use constant msoEncodingUTF8 => 65001;

Answer 2

以下命令将为您创建[root@x ~]# docker pull docker.io/openshift/origin-node:v3.11.0 Trying to pull repository docker.io/openshift/origin-node ... Get https://registry-1.docker.io/v2/: dial tcp: lookup registry-1.docker.io on 192.168.x.x:53: server misbehaving（和其他常量）：

Status: Image is up to date for

在perl脚本中将“ msoEncodingUTF8”与Win32 :: OLE一起使用

2 个答案: