从IBM数据文件解压缩字段

Question

我的问题是EBCDIC编码的文件有30个字节被打包，需要解压缩才能获得实际值。我正在尝试使用PHP包/解包功能以及Perl的方法，但没有找到运气。我得到的价值似乎不是我正在寻找的确切价值。我试着用C C H H N打开它。

假设该文件保存EBCDIC编码的数据；pack字段位于635-664位置，30字节长数据1=9字节数据2=9字节数据3=3字节数据4=3字节数据5=3字节数据6=3字节

PHP：

     $datafile = fopen("/var/www/data/datafile", "rb");
     $regebcdicdata = fread($datafile, 634);
     $packfields = fread($datafile, 30);
     $arr= unpack('c9data1/c9bdata2/c3data3/C3data4/C3data5/C3data6',$packfields);
     print_r($arr);
    

    open my $fh, '<:raw', '/var/www/html/PERL/test';
    my $bytes_read = read $fh, my $bytes, 634;
    my $bytes_read2 = read $fh, my $bytes2, 30;
    my ($data1,$data2,$data3,$data4,$data5,$data6) = unpack 'C9 C9 C3 C3 C3 C3',     $bytes2;
    

Answer 1

如果不知道这三十个字节是怎么打包的，我不可能帮你打开它们。你一定有什么主意吧？

对于常规的EBCDIC文本，您需要准确地确定文档使用的代码页，然后可以简单地使用Perl IO对其进行解码

假设您正在处理代码页37，那么您可以像这样打开您的文件

open my $fh, '<:encoding(cp37)', 'ebcdic_file' or die $!