perl在binmode中以不同的偏移量进行查找和删除

Question

这是我正在编写的脚本。

#usr/bin/perl
use warnings;

open(my $infile, '<', "./file1.bin") or die "Cannot open file1.bin: $!";
binmode($infile);
open(my $outfile, '>', "./extracted data without 00's.bin") or die "Cannot create extracted data without 00's.bin: $!";
binmode($outfile);
local $/; $infile = <STDIN>;
   print substr($infile, 0, 0x840, '');
   $infile =~ s/{16}//;
   print $outfile;

我正在perl中加载一个二进制文件。我已经能够在特定的偏移量上进行查找和修补，但我想做的是，现在能够找到"00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"（16字节？）的任何实例并将其从文件中删除，但不少于16字节。如果没有，我就想离开。在一些文件中，00开始的偏移量将处于不同的偏移量，但如果我想得正确，如果我可以搜索00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00并删除它的任何实例，那么00的偏移量就无关紧要了。我会先从特定的偏移量中提取数据，然后搜索文件并从中删除00。我已经可以提取我需要的特定偏移量，我只需要打开提取的文件并删除00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

EF 39 77 5B 14 9D E9 1E 94 A9 97 F2 6D E3 68 05
6F 7B 77 BB C4 99 67 B5 C9 71 12 30 9D ED 31 B6 
AB 1F 81 66 E1 DD 29 4E 71 8D 54 F5 6C C8 86 0D 
5B 72 AF A8 1F 26 DD 05 AF 78 13 EF A5 E0 76 BB 
8A 59 9B 20 C5 58 95 7C E0 DB 44 6A EC 7E D0 10 
09 42 B1 12 65 80 B3 EC 58 1A 2F 92 B9 32 D9 07 
96 DE 32 51 4B 5F 3B 50 9A D1 09 37 F4 6D 7C 01 
01 4A A4 24 04 DC 83 08 17 CB 34 2C E5 87 26 C1 
35 38 F4 C4 E4 78 FE FC A2 BE 99 48 C9 CA 69 90 
33 87 09 A8 27 BA 91 FC 4B 77 FA AB F5 1E 4E C0        I want to leave everything from
F2 78 6E 31 7D 16 3B 53 04 8A C1 A8 4B 70 39 22 <----- here up
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 <----- I want to prune everything
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00        from here on
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00<---- this IS the end of the file, and
                                                     just need to prune these few rows
                                                     of 00's

假设上例中的"F2 78 6E"位于偏移量0x45000，但在另一个文件中，00将从不同的偏移量开始，我如何对其进行编码，以便修剪00 00's。在我打开的任何文件中？如果我需要更具体一点，就去问吧。似乎我会一直窥探文件，直到找到一个长的00 00字符串，然后修剪所有剩余的行。这有道理吗？我只想在文件中搜索00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00的任何实例，然后删除/修剪/截断它

编辑#2它做到了：

open($infile, '<', './file1') or die "cannot open file1: $!";
binmode $infile;
open($outfile, '>', './file2') or die "cannot open file2: $!";
binmode $outfile;
local $/; $file = <$infile>;
$file =~ s/{16}//g;
print $outfile $file;

close ($infile);
close ($outfile);

感谢ikegami的帮助和耐心：）

Answer 1

没有从文件中删除这样的事情。你必须选择

1. 在没有多余位的情况下复制文件，或者
2. read是文件的其余部分，seek返回，print通过不需要的比特，然后truncate是文件

我选择了选项1。

$ perl -e'
   binmode STDIN;
   binmode STDOUT;
   local $/; $file = <STDIN>;
   $file =~ s/{16}//;
   print $file;
' <file.in >file.out

我正在将整个文件加载到内存中。任何一个选项都可以分块完成，但这会使事情变得复杂，因为NUL可能跨越两个块。

---

在一个措辞拙劣的更新中，您似乎要求避免更改前0x840字节。两种解决方案：

$ perl -e'
   binmode STDIN;
   binmode STDOUT;
   local $/; $file = <STDIN>;
   substr($file, 0x840) =~ s/{16}//;
   print $file;
' <file.in >file.out
$ perl -e'
   binmode STDIN;
   binmode STDOUT;
   local $/; $file = <STDIN>;
   print substr($file, 0, 0x840, '');
   $file =~ s/{16}//;
   print $file;
' <file.in >file.out