Question

我的文本文件看起来像这样：

float a[10] = {
    7.100000e+000 ,
    9.100000e+000 ,
    2.100000e+000 ,
    1.100000e+000 ,
    8.200000e+000 ,
    7.220000e+000 ,
    7.220000e+000 ,
    7.222000e+000 ,
    1.120000e+000 ,
    1.987600e+000
};

unsigned int col_ind[10] = {
    1 ,
    4 ,
    3 ,
    4 ,
    5 ,
    2 ,
    3 ,
    4 ,
    1 ,
    5
};

现在，我想将每个数组（float / unsigned int）转换为不同的二进制文件 - big endian类型，所有浮点值的二进制文件和所有整数值的二进制文件。

在Perl中执行此操作的简单方法是什么，请考虑每个数组中有超过两个millon元素？

Answer 1

您需要查看binmode和pack。这是一个可以帮助您入门的示例。我不确定我是否选择了您需要的包模板，但请参阅pack文档以了解所有选项。

use strict;
use warnings;

my ($fh, $pack_template);

while (my $line = <>){
    if ( $line =~ /(float|int)/ ){
        $pack_template = $1 eq 'int' ? 'i' : 'f';

        undef $fh;
        open $fh, '>', "$1.dat" or die $!;
        binmode $fh;

        next;
    }

    next unless $line =~ /\d/;
    $line =~ s/[,\s]+$//;

    print $fh pack($pack_template, $line);
}

如何使用Perl将文本中的浮点值转换为二进制？

1 个答案: