使用 perl 将文本文件转换为二进制文件的问题答案

【问题标题】：Problem converting a text file into binary file using perl使用 perl 将文本文件转换为二进制文件的问题
【发布时间】：2019-11-02 06:00:16
【问题描述】：

我想用 Perl 将一些数据转换成二进制。数据需要以 8 位二进制输出。原始数据采用以下格式：

为此，我转换了数据以抑制“.0000”，然后使用带有选项C* 的pack 函数（此格式对应于“无符号字符（通常为8 位）”，根据文档）。我称这个文件为txt2bin.pl：

my $file = $ARGV[0];
my $fileout = $file.".bin";

if($file eq "-h" or $file eq "-help" or $file eq "")
{  
    print "Usage : txt2bin.pl file_in\n";
    print "        file_out = file_in.bin\n";
    print "This script converts a txt file to a binary file\n";

}

else
{
  print "File in = $file\n";
  print "File out = $fileout\n";

  open(FILE,"<$file") or die $!;
  open(FILEOUT,">$fileout") or die $!;
    binmode FILEOUT;
    while(defined(my $line=<FILE>))
    {
      chomp($line);
      $line =~ s/\.0000//;
      syswrite FILEOUT, pack("C*",$line);
    }
  close(FILE);
  close(FILEOUT);
}

我还需要能够做反向操作，所以，我创建了另一个文件bin2txt.pl：

my $file = $ARGV[0];
my $fileout = $file.".txt";

if($file eq "-h" or $file eq "-help" or $file eq "")
{
    print "Usage : bin2txt.pl file_in\n";
    print "        file_out = file_in.txt\n";
    print "This script converts a binairy file to a txt file\n";
}

else
{
  print "File in = $file\n";
  print "File out = $fileout\n";

  my $file = "<$file";

  # undef $/ to read whole file in one go
  undef $/;

  open(FILE,$file) or die $!;
  open(FILEOUT,">$fileout") or die $!;

  # binmode FILE to supress conversion of line endings
  binmode FILE;

  my $data = <FILE>;
  $data =~ s/(.{1})/unpack("C*",$1).".0000 \n"/eg;
  syswrite FILEOUT, $data;
}

但是，当我执行第一个程序txt2bin.pl，然后第二个，我应该得到：

相反，我得到了这个：

10.0000 没有出现，你们对此有什么想法吗？感谢您的帮助。

【问题讨论】：

大概10被当作换行符0x0a不知何故？
@HåkonHægland，但为什么只有它一个？以及如何预防？
注意{1}是没用的。
我知道，在我的代码的其他部分（上面未显示），我有{3}，为了更通用，我保留了{1}。无论如何感谢您的评论:-)

标签： file perl binary data-conversion

【解决方案1】：

您需要将 s 修饰符添加到正则表达式替换以匹配 10（换行符）：

$data =~ s/(.{1})/unpack("C*",$1).".0000 \n"/seg;

来自perldoc perlre：

s
将字符串视为单行。即改“.”。匹配任何任何字符，甚至是换行符，通常它不会匹配。

【讨论】：