急！请问如何使用Perl中的什么函数查找文件中的16进制数字？

dbetter 2004-11-22 03:56:21

是一ASN.1文件，现文件可用open(FILE,"filename")打开，也可用$line=<FILE>读出一行记录（里面包含ASCII码字符和16进制的数字），现在如何找出里面的16进制数字对其修改？（我用printf($line)发现只能显示ACSII字符，而16进制数字无法正常显示）
另外，为什么我用substr，mid等字符串操作函数时，提示说无此函数？
急着要完成此功能，请指点，不胜感激！

...全文

219 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

core 2004-11-23

打赏
举报

回复

那段代码的意思是把$a中连续3个以上的十六进制数打出来
[:xdigit:]匹配十六进制数，{3,}3个以上, ()记忆匹配

dbetter 2004-11-22

打赏
举报

回复

另外我执行了一遍你的代码，好像没什么用啊

dbetter 2004-11-22

打赏
举报

回复

这是什么意思？能给出代码注释吗？谢谢！

core 2004-11-22

打赏
举报

回复

#! /usr/bin/perl
$a = "helloAB0ef";
$a =~ m/([[:xdigit:]]{3,})/;
print $1;

一个简单的将二进制数值转换为十六进制程序

1、join函数 #!/usr/bin/perl @array = (1, 2, 3, 4, 5, 6); print join(", ", @array); 2、vec函数 #!/usr/bin/perl # 16进制数字转为二进制数字 $hexdigit = 0xA; vec($data, 0, 8) = $hexdigit; print vec($da

use strict; my $gifname = "C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\1.jpg"; my $gifOutname = "d:\\1111.dat";

一、进程处理函数1、进程启动函数函数名 eval调用语法 eval(string)解说将string看作Perl语句执行。正确执行后，系统变量$@为空串，如果有错误，$@中为错误信息。例子 $print = "print (\"hello,world\\n\");";eval ($print);结果输出 hello, world函数名 system调用语法 system(list)解说 list...

经常要在大量的系统库中查找某个字段。用普通的工具(Notepad++,utral editor等)查找非常消耗时间。用 Everything (强大的搜索工具) content: 搜索文本内容. find "your directory" -type f -print0 | xargs -0 file --mime-type | grep -E "text/" | cut -d: -f1 | xargs -d"\n" grep -Eil "search string"

Linux/Unix社区

23,217

社区成员

74,540

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章