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）

hztj2005

我这Win10中cmd执行不了 这个命令。
你在正则表达式最后加一个s看是否可行 ，就是多行模式。
.*//gs

sofs

回复 2# hztj2005


    加了s也没用。

sunzhiguolu

本来想用处理字符串的方式匹配删除, 好像我给想简单了. 我搞不定, 帮顶.

jason680

回复 1# sofs

$ perl -pe 'BEGIN{$/=undef}{s/\x48\x5c\x00\x00\x00\x00\x00\x00\x03\x80.*//gs}' 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\.|
...
000002d0  04 38 00 1f ea 00 30 4c  1a 2f 16 dd 6f ed d8 0c  |.8....0L./..o...|
000002e0  a1 f4 14 26 0d 80 33 80  5d a7                    |...&..3.].|
000002ea

   

sunzhiguolu

回复 5# jason680
大神, 向您请教下 用文件句柄的方式 读取这个二进制文件 咋搞啊, 好像和处理普通文本的方式有很大出入呀. 还请您指点, 谢谢了.

   

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下执行？

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.

            ...

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

sofs

回复 5# jason680


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

感谢大神！