perl 怎么以16进制操作文件，替换文件内容？

sofs

左边是原文件，右边是我替换了内容后的文件。

我用的命令是 perl -p -i -e 's/\x48\x5c\x00\x00\x00\x00\x00\x00\x03\x80.*//g' ./file.gz

需求是要将左边 1 红框后面的内容全部删除掉。用了上面那个perl替换命令后，只是删除掉了一部分内容（右边空白处就是被删除的），而后面还有一大段内容没被删除（2）。

研究了很久，sed，tr这些都试了，没找到方法，求大神指点。

下面是原附件。

file.gz (2.31 KB, 下载次数: 25)

2016-08-14 09:04 上传

点击文件名下载附件

如果不想在CU扫描下载的话，我在这里也传了一份附件 ： doora.qiniudn.com/vSREh.gz   （下载后请重命名为file.gz）

sofs

回复 14# sunzhiguolu


    嗯，这个也行，但用xxd两次转换，效率比较差一点。

实现了总是好的。

感谢。

sunzhiguolu

回复 1# sofs
这样?

1. xxd -p file.gz|perl -0ne '$p=$+[0] while(/7d81a03ec1a7/g);print substr($_,0,$p)'|xxd -p -r>rst

复制代码

   

sofs

回复 12# jason680


    测试通过。

感谢。

jason680

回复 11# sofs

$ awk 'BEGIN{RS="\x48\x5c\x5c\x00\x00\x00\x00\x00\x00\x03\x80"}{if(a!="")printf("%s",a);a=$0RT}' file.gz | hexdump -C
00000000  0f c9 50 a6 a2 e5 00 a2  e3 38 05 05 d3 5e 15 a9  |..P......8...^..|
00000010  32 b7 a0 00 b0 69 30 a5  43 2f 07 ef f8 73 5c 1a  |2....i0.C/...s\.|
...
000005c0  80 21 1a d3 40 7d 81 a0  3e c1 a7 48 5c 00 00 00  |.!..@}..>..H\...|
000005d0  00 00 00 03 80                                    |.....|
000005d5

   

sofs

回复 5# jason680


    刚刚放到实际应用中使用，又发现了问题：

\x48\x5c\x00\x00\x00\x00\x00\x00\x03\x80 这个特征码在很多文件里面不是唯一，如何可以做到只删除最后一次出现该特征码后的内容？

sofs

回复 5# jason680


    可行，解决了困扰我两天的问题。

感谢大神！

jason680

回复 7# hztj2005

1. 无Win10
有Win8

2. in Windows
  Don't use it in Windows

* you need modify the code into a script file by yourself

jason680

回复 6# sunzhiguolu

    binmode FILEHANDLE, LAYER
    binmode FILEHANDLE
            Arranges for FILEHANDLE to be read or written in "binary" or
            "text" mode on systems where the run-time libraries distinguish
            between binary and text files. If FILEHANDLE is an expression, the
            value is taken as the name of the filehandle. Returns true on
            success, otherwise it returns "undef" and sets $! (errno).

            
            On some systems (in general, DOS- and Windows-based systems)
            binmode() is necessary when you're not working with a text file.
            For the sake of portability it is a good idea always to use it
            when appropriate, and never to use it when it isn't appropriate.
            Also, people can set their I/O to be by default UTF8-encoded
            Unicode, not bytes.

            ...

hztj2005

jason680 发表于 2016-08-15 23:31
回复 1# sofs

$ perl -pe 'BEGIN{$/=undef}{s/\x48\x5c\x00\x00\x00\x00\x00\x00\x03\x80.*//gs}' file ...

我在win10下执行这个语句，返回的是：

'$' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

是否只能在unix/Linux下执行？