perl
ancktion
10年c++开发经验,从事金融、轨道等自助设备开发
展开
-
perl读取二进制文件并进行修改的实例
以下脚本为读取二进制文件,并进行分析处理,判断有错误的数据进行修改的实例:##分析指定目录下的日志,提取有用的信息####此程序由perl运行###use Digest::MD5 qw(md5_hex);#print "Digest is ", md5_hex("foobarbaz"), "\n";#use Digest::MD5 qw(md5 md5_hex md5_base64);#$digest = md5($data);#$digest = md5_hex($data);#$dig原创 2020-07-10 19:53:37 · 864 阅读 · 0 评论 -
perl语言把低位在前的16进制字符串转为整型数
以下为把16进制字符串转为整型数的实例:#把低位在前的16进制字符串转为整型#使用方法 $inter = lowhex2inter(“0a02”,4);sub lowhex2inter{#字符串my strhex=sprintf("strhex = sprintf("%s",strhex=sprintf("_[0]);;#字节数my $bytenum = KaTeX parse error: Expected 'EOF', got '#' at position 12: _[1]/2;原创 2020-07-10 19:49:59 · 327 阅读 · 0 评论 -
使用perl语言实现整型数转为低字节在前的内存块功能
如何实现整型数低字节在前的内存块功能,这边的思路如下:1.把整型数转为16进制数的字符串,并且此字符串低字节在前2.把16进制的字符串再转为内存块以下为代码:#文件名: test.pl#执行: perl.exe test.pltest();#把整型数转为低位在前的16进制字符串#使用方法 $strhex = inter2lowhex(“9535”,4); or $strhex = ...原创 2020-03-01 09:43:10 · 206 阅读 · 0 评论 -
纯perl语言计算文件的crc32值
perl语言有次强大的正则表达式功能,因而我喜欢使用perl语言进行一些数据分析,在项目中也需要生成文件的crc值,在网上很多都是引用第三方的库进行计算,crc计算是使用位计算得来,因此可以通过纯perl计算crc值,本函数来源于网上某位大侠,经测试计算正确,以下是代码:#文件名:test.pl#执行:@perl.exe test.pl#计算crc32#使用方法 makecrc32(str...原创 2020-03-01 09:33:51 · 521 阅读 · 1 评论