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

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

Bbs1
本版专家分:0
结帖率 97.06%
CSDN今日推荐
Bbs5
本版专家分:3129
Bbs1
本版专家分:0
Bbs1
本版专家分:0
Bbs5
本版专家分:3129
匿名用户不能发表回复!登录|注册
其他相关推荐
把一个“十六进制”字符串转换为十六进制数字输出
举例:“9A”     1:取出字符串。     2:去掉字符串首尾的空格     3:循环取出字符串中的单个字符。     4:判断取出的单个字符是否在0—9 、A—F、a—f之中。     5:转换思路:     a:把取到的字符减去一个合适的数值,转换为十进制的数字(字符串->十进制)     b:因为一个字符(8 bits),所以十位的字符应该左移4位之后 或上 (个位数字
perl中find常用方法
find通常被用来查找特定路径下的特定文件,用来搜索文件名非常有用,是perl中使用非常广泛的文件操作函数。      先看个例子:      use File::Find;      find(\&PrintName, @curDir);      sub PrintName{                           my $path;                
在文件中查找文本的Perl脚本
Windows里没有grep工具,不方便对文件的内容进行查找,随手写了一个Perl脚本,脚本写得不是很简洁,但能工作。 Github: https://gist.github.com/2273079 #!/usr/bin/perl -w#############################################################
perl二进制,,十进制与十六进制转换
生物信息里面也有进制的转换关系,不多说,把简单的写一下: sub d2b()#2to10 { my $bin = shift; my $mod = $bin % 2; return $bin if $bin < 2; $bin = ($bin - $mod) / 2; return &d2b($bin).$mod; } sub dec2bin()#2to10 { my $dec =
perl中sprintf函数的使用方法。
对于某些字符串,需要输入为特定的格式,通过sprintf可以很方便的完成,不需要专门进行其他处理。perl中的sprintf的用法如下:sprintf FORMAT, LIST 比如:$result = sprintf("%08d",$number);让$number有8个前导零。 $rounded = sprintf("%.3f",$numbe
perl中数组函数详解:join和split…
在perl中,join()和split()的功能是相反的。 一.join函数  1.作用:把数组元素或者几个字符串通过分隔符连接成单个字符串  2.格式:join(DELIMITER,ARRAY或string[1,2,3...])  3.实例:#join $name="Tom"; $birth="01/02/86"; $addr="chengdu.sichuan"; $info=join(":",
Perl函数pack/unpack(二进制读写)
函数名pack调用语法formatstr = pack(packformat, list);解说把一个列表或数组以在实际机器存贮格式或C等编程语言使用的格式转化(包装)到一个简单变量中。参数packformat包含一个或多个格式字符,列表中每个元素对应一个,各格式字符间可用空格或tab隔开,因为pack忽略空格。<br />    除了格式a、A和@外,重复使用一种格式多次可在其后加个整数,如:<br />     $twoints = pack
perl字符串如何提取数字
$test="fsfsfs fsfsf 212 fsfs"; $test =~ /(\d+)/; print "$1\n";
perl中模块的编写和使用举例
1.perl中模块的编写和使用       这里使用一个例子来说明,       编写NinGoo模块,代码如下: #!/usr/bin/perl -w package NinGoo; require Exporter; use strict; use warnings; our @ISA = qw(Exporter); our @EXPORT = qw(fun_public); our @
用perl语言去提取文件里的数字
脚本代码:#!/usr/bin/perlprint &quot;出题:提取文件[sendmail.pl]里出现的所有数字\n&quot;;open(readdata,&quot;/home/wlzy//perl/sendmail.pl&quot;) or die &quot;the file not exist$!\n&quot;;my $rownum=1;foreach my $line(&amp;lt;readdata&amp;gt;){$line =~ tr/[0-...
关闭