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

CSDN论坛 > Linux/Unix社区 > 应用程序开发区

急！请问如何使用Perl中的什么函数查找文件中的16进制数字？ [问题点数：50分，结帖人dbetter]

回复

⋅简单的题目，第一个答对有高分，100分，限时明天晚上 ⋅在线求助，麻烦高手帮帮忙，在用户点提交的时候弹出一个提示框，确定就继续，取消就返回。 ⋅关于checkbox的问题（在线等）急 更多帖子 关注空间博客 Better.net 本版专家分：0 结帖率 97.06%: 0 2004-11-22 15:56:21 回复次数4

引用・举报・楼主

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

问题点数：50分

CSDN今日推荐

⋅寻求免费软件广告商 ⋅请教权限问题 ⋅软件编译问题，不识编码 更多帖子 关注空间博客 猪母狼马 本版专家分：3129: 0 2004-11-22 16:40:18

引用・举报・ #1 得分：50

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

⋅简单的题目，第一个答对有高分，100分，限时明天晚上 ⋅在线求助，麻烦高手帮帮忙，在用户点提交的时候弹出一个提示框，确定就继续，取消就返回。 ⋅关于checkbox的问题（在线等）急 更多帖子 关注空间博客 Better.net 本版专家分：0: 0 2004-11-22 18:17:03

引用・举报・ #2 得分：0

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

⋅简单的题目，第一个答对有高分，100分，限时明天晚上 ⋅在线求助，麻烦高手帮帮忙，在用户点提交的时候弹出一个提示框，确定就继续，取消就返回。 ⋅关于checkbox的问题（在线等）急 更多帖子 关注空间博客 Better.net 本版专家分：0: 0 2004-11-22 18:19:18

引用・举报・ #3 得分：0

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

⋅寻求免费软件广告商 ⋅请教权限问题 ⋅软件编译问题，不识编码 更多帖子 关注空间博客 猪母狼马 本版专家分：3129: 0 2004-11-23 15:55:01

引用・举报・ #4 得分：0

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

回复

注册

其他相关推荐

perl中grep函数的使用: perl中Grep函数的使用关于grep函数 (如果你是个Perl的新手,你可以先跳过下面的两段,直接到 Grep vs.loops 样例这一部分,放心,在后面你还会遇到它) grep BLOCK LISTgrep EXPR, LISTgrep 函数会根据 LIST 中的元素对 BLOCK 或 EXPR 做出评估，而且会把局部变量 $_ 设置为当前所用的 L

perl 函数传递以及my的使用: perl 函数传递以及my使用的一些理解和实验证明.请高手过来指点.

Json数据解析之Fastjson: 什么是 Fastjson是一个Java语言编写的高性能功能完善的JSON库。

Perl实现十进制和十六进制的转换: 从十进制转为十六进制：vim d2h.pl#!/usr/bin/perl # Convert list of decimal numbers into hex for ($i=0;$i&lt;@ARGV;$i++){ printf("%d\t=0x%x\n",$ARGV[$i],$ARGV[$i]); } ~ chmod +x d2h.pl$ ./d2h.pl 10...

perl中的字符串和数值: $string = "11"; $number = 22; $result = $string + $number; # $result = 33 perl 中字符串和数值可以互相转换，但是只是十进制的字符串。对于字串中有非十进制字符的，从左边到第一个非十进制字符的字符串将被转换: $result = "12a34" +1; # $result = 13 如果左边第一个也不是

在文件中查找文本的Perl脚本: Windows里没有grep工具，不方便对文件的内容进行查找，随手写了一个Perl脚本，脚本写得不是很简洁，但能工作。 Github: https://gist.github.com/2273079 #!/usr/bin/perl -w#############################################################

perl中sprintf函数的使用方法。: 对于某些字符串，需要输入为特定的格式，通过sprintf可以很方便的完成，不需要专门进行其他处理。perl中的sprintf的用法如下：sprintf FORMAT, LIST 比如：$result = sprintf("%08d",$number);让$number有8个前导零。 $rounded = sprintf("%.3f",$numbe

perl print 与加减乘除: #!/usr/bin/perl print ((print (2+3))*4); print "\n"; print 返回 1

perl字符串如何提取数字: $test="fsfsfs fsfsf 212 fsfs"; $test =~ /(\d+)/; print "$1\n";

二、Perl常量: 一、数字常量在Perl中，不管是整型常量还是浮点型常量都是按照双精度浮点型常量来表示的，也就是说在Perl内部，并不存在整型常量（所有的整型常量都会转换为等效的浮点型常量）。 1. 浮点型常量例如： 1.25 255.000 255.0 7.25e45 # 7.25 * 10^45 -6.5e24 # -6.5 * 10^24 -12e-24 # -12 * 10^-24 -1.

关闭

关闭