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

sofs

回复 5# jason680


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

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

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

回复 12# jason680


    测试通过。

感谢。

sunzhiguolu

回复 1# sofs
这样?

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

复制代码

   

sofs

回复 14# sunzhiguolu


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

实现了总是好的。

感谢。