2

这是我正在写的剧本。

#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/\0{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 00's修剪。在我打开的任何文件中？如果我需要更具体，请问。似乎我会一直窥视文件，直到我击中一个长的 00 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/\0{16}//g;
print $outfile $file;


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

感谢您ikegami的所有帮助和耐心:)

4

1 回答 1

4

没有从文件中删除之类的东西。你必须要么

  1. 复制没有不需要的位的文件，或
  2. read文件的其余部分，seek返回，print在不需要的位上，然后truncate是文件。

我选择了选项 1。

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

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

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

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

$ perl -e'
   binmode STDIN;
   binmode STDOUT;
   local $/; $file = <STDIN>;
   print substr($file, 0, 0x840, '');
   $file =~ s/\0{16}//;
   print $file;
' <file.in >file.out
于 2013-02-09T20:20:48.640 回答