4

在将我的问题发布到 ActiveState 论坛之前，我想在这里试试运气 :)

我正在尝试使用 Perlapp（8.1 版）将我的一个简单脚本转换为 .exe 文件。Perl 脚本运行良好，似乎 Perlapp 也成功地完成了它的工作。但是转换后的 .exe 文件有一些奇怪的行为，我相信这一定与 utf-8 编码有关。例如，Perl 脚本会产生如下结果：

hàn    huáng  zhòng  sè     sī     qīng   guó

但是运行可执行文件只会给我这个：

h      hu     zh     s      s      q      gu

我已经配置了 Perlapp，以便明确添加 utf8.pm，但问题只是拒绝消失。我尝试过别的东西。例如，

binmode DATA, ":utf8";

和

">:encoding(utf8)"

但没有任何运气；

谁能给我一些暗示可能是什么原因？一如既往地感谢:)

我可以在这里发布整个代码，但似乎没有必要，所以我只粘贴一些我认为与问题相关的代码片段：

use utf8;

%zidian = map {chomp;split/\s+/,$_,2} <DATA>;

open my $in,'<:utf8',"./original.txt";
open my $out,'>:utf8',"./modified.txt";

if ( $code~~%zidian) {
           $value = lc$zidian{$code};
}

__DATA__
3400    Qiū
3401    TIǎN
3404    KUà
3405    Wǔ

还有一件事，我在 Windows XP (中文版) 上运行 ActivePerl 5.10.0. 并且脚本保存为没有 BOM 的 utf-8 编码。PerlApp 无法处理具有 BOM 的脚本。

编辑

如果我要给出一个可行的片段，那么我想这就像给出整个代码一样，因为我使用了三个相互连接的子例程，我从 Lingua::han::Pinyin 模块和 Lingua:: 中进行了一些修改。 han::Utils 模块。

#! perl
# to make good vertical alignment,
# set font family to SonTi and font size to Four(12pts)
use utf8;


sub Unihan {
    my $hanzi = shift;
    my @unihan = map { uc sprintf("%x",$_) } unpack ("U*", $hanzi);
    }

sub csplit {
    my $hanzi = shift;
    my @return_hanzi;
    my @code = Unihan($hanzi);
    foreach my $code (@code) {
        my $value = pack("U*", hex $code);
        push @return_hanzi, $value if ($value);
    }
    return wantarray ? @return_hanzi : join( '', @return_hanzi );
    }

%zidian = map {chomp;split/\s+/,$_,2} <DATA>;

sub han2pinyin {
    my $hanzi = shift;
    my @pinyin;
    my @code = Unihan($hanzi);
     foreach $code (@code) {
           if ( $code~~%zidian) {
           $value = lc$zidian{$code};
        }
        else {
            $value = " ";
        }
        push @pinyin, $value;
    }
    return wantarray ? @pinyin : join( '', @pinyin );
}

open $in,'<:utf8',"./original.txt";
seek $in, 3,0;
open $out,'>:utf8',"./modified.txt";

while(<$in>){
     s/(.{18})/$1\n/g;
     push @tmp, $_;
}

foreach (@tmp){
my @hanzi;
my @pinyin;
@hanzi = csplit($_);
my $hang = join "", @hanzi;
@pinyin = han2pinyin($hang);

for ( my $i = 0; $i < @hanzi && $i < @pinyin; ++$i ) {
           if ( $hanzi[$i] =~ /[\xEFBC8C]|[\xE38082]|[\xEFBC81]|[\xEFBC9F]|[\xE2809C]|[\xE2809D]|[\xEFBC9A]/ ) {
            splice(@pinyin, $i, 0,"　");
        }
       }

printf $out "%-7s" x @pinyin, @pinyin;
print $out "\n";
printf $out "%-6s" x @hanzi, @hanzi;
print $out "\n";
}


__DATA__
    3400    Qiū
    3401    TIǎN
    3404    KUà
    3405    Wǔ
4

1 回答 1

1

ActiveState 还没有给我任何帮助。任何。现在我已经为我的问题找到了解决方法，这个解决方法看起来很奇怪。

首先，我在我的 DATA 部分中添加了一些其他无用的 utf-8 编码字符，如下所示：

__DATA__
aardvark 'ɑ:dvɑ:k
aardwolf 'ɑ:dwulf
aasvogel 'ɑ:sfәugәl
3400    Qiū
3401    TIǎN
3404    KUà
3405    Wǔ

然后我删除了 use utf8; 我脚本中的编译指示；然后我从以下代码行中删除了 utf8 标志：

open $out,'>:utf8',"./modified.txt";

现在变成了

open $out,'>',"./modified.txt";

但我不得不让以下代码行保持不变：

open $in,'<:utf8',"./original.txt";

然后一切都好，除了我会收到“打印中的宽字符”警告。但我添加了另一行代码：

no warnings;

然后我 Perlapped 我的脚本，一切都很好:)

这真的很奇怪。我怀疑这个问题在某种程度上是特定于操作系统的。我的 Windows 系统也很可能有问题。我还尝试了 Perl2exe，编译后的可执行文件给了我一些“无法读取内存 0010c4”的错误。任何。我的问题被我自己解决了:)

于 2009-12-09T11:27:47.167 回答