Question

我在文件中打开了一个文件句柄，其中包含cp1252个字符。我想将这个打开的文件句柄提供给一个期望原始utf8字节的库，它将通过网络发送它们。

这种天真的方法是将文件写入具有正确编码的第二个文件，并将第二个文件句柄提供给库：

use Fcntl qw/SEEK_SET/;

open my $fh_1252, "<:encoding(cp1252)", "1252.txt" || die $!;

open my $fh_utf8, "+>:encoding(utf8)", "utf8.txt"  || die $!;

while (<$fh_1252>){ print $fh_utf8 $_ };

seek($fh_utf8, 0, SEEK_SET);

# now give $fh_utf8 to the library for transmission

这似乎是一堆额外的工作。有没有办法简单地流动它？我知道我可以使用IO :: Scalar来删除写入磁盘的需要，但我仍然需要将整个内容读入内存。似乎有一种方法可以使用管道来传输它，但我现在还没想办法做到这一点。

Answer 1

您可以为PerlIO编写自己的转换模块，并将其与:via(MODULE)一起使用。您的模块可以通过Text::Iconv传递数据，以便从一个字符集转换为另一个字符集。

手册PerlIO::via(3pm)中描述了这种方式。简而言之，您需要创建自己的模块，例如PerlIO::via::Example - 也就是说，您创建PerlIO/via目录并将Example.pm放在那里，其中包含以下内容：

package PerlIO::via::Example;

use strict;
use warnings;

use Text::Iconv;
my $converter = Text::Iconv->new("windows-1252", "utf-8");

sub PUSHED
{
    my ($class, $mode, $fh) = @_;
    # When writing we buffer the data
    my $buf = '';
    return bless \$buf, $class;
}

sub FILL
{
    my ($obj, $fh) = @_;
    my $line = <$fh>;
    return (defined $line) ? 'converted: ' . $converter->convert($line) : undef;
    # 'converted: ' is added here for debugging purposes
}

sub WRITE
{
    my ($obj,$buf,$fh) = @_;
    $$obj .= $buf; # we do nothing here
    return length($buf);
}

sub FLUSH
{
    my ($obj, $fh) = @_;
    print $fh $$obj or return -1;
    $$obj = '';
    return 0;
}

1;

然后在open中使用它，就像这里：

use strict;
use warnings;

use PerlIO::via::Example;

open(my $fh, "<:via(Example)", "input.txt");
while (<$fh>) {
    print;
}
close $fh;

Answer 2

您可以使用外部程序转换输入文件。有关详细信息，请参阅perldoc -f open。

open( my $ft, '-|' "iconf -f CP1252 -t UTF-8 1252.txt") || die $!;

P.S。 perl库有更简单的解决方案。以上是最常见的恕我直言。

Perl将文件句柄就地/流式传输从cp1252转换为utf-8？

2 个答案: