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


    可行，解決了困擾我兩天的問題。

感謝大神！