perl + 有什么用

#!usr/bin/perl-wusestrict;use5.010;#打开DNA序列文件句柄openFILE,"contig"my%hash;#读入序列my$DNA=;#按照"N"来拆分序列,并且剔

第2个文本是每行只包含一个单词吗?再问：是的，第一个文本每行包含单词数不定，用空格分开，第二个文本每行只包含一个再答：#!perlopen(F,"text2.txt")ordie"Couldnotop

你没说m怎么得来的,全部都是3吗?my$s,$l1,$l2,$m;open(FD,'1.txt');while($s=){$s=~s/^\s+|\s+$//g;(undef,undef,$l1,und

#!/usr/bin/perlusestrict;usewarnings;open(IN,"amin.txt");##输入文件open(OUT,">result.txt");##输出文件my$k=3;

首先你要知道localtime的返回值是什么.localtime它返回的是一段列表值,如下($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=l

首先确定你已经装好了PERL.Windows的话,应该是用ActivePERL吧.其次,看你想怎么运行.如果你是用记事本或者UltraEdit32这样的编辑器写的程序,应该需要在命令行运行.在WinX

请给精度下个定义再问：@ERR013180.1HWI-EAS-249_38:2:1:2:857/1TTTTCTTGTTCTTGACTCTTCTGCATAAGTANTTAAATCC+BBBBBCBB=B

可以用正则表达式替换,例子程序：my$s="Hello,howareyou?I'mfinethankyou.Andyou?I'mfinetoo.TheEnd";print$s;print"\n\n";

试试,写的不好,a.txt是写单词的,每行一个,b.txt是要检查的文档.所有单词未区分大小写.#!/usr/bin/perlusestrict;my%Words;my$matchString='';

调用built-in的subroutinelength$a=length"aaaa";print$a;

$lines/^\s+//;#去掉$line中起始部分的空格$lines/\s+$//;#去掉$line中结束部分的空格是perl的正则表达式操作符这里采用的是替换语意:s/被替换的内容/替换成为/其

稍微改下之前给你的代码,#!usr/bin/perlusewarnings;usestrict;useGetopt::Long;my$testFile;GetOptions("testFile:s"=

@_在某个函数内,数组@_包含传递给该函数的所有参数.$_默认的输入/输出和格式匹配空间--------------------------------------------------------

$@PERL内置变量,Perl解释器从eval语句返回的错误消息代码eval{$answer=$a/$b;};warn$@if$@;正确执行后,系统变量$@为空串,如果有错误,$@中为错误信息.

state这个是在perl5.0.10里面提供的功能,需要明确指明,才可以使用,如何指明：加入这行：usefeatureqw(state);或者加入这行：use5.010;#!/usr/bin/per

建议如果要达到反转功能需要$str=;chomp$str;$str=reverse$str;print$str;迈出了扎实的反转一步.是abcd+CtrlD--->----->@arr=;------

利用正则：my$line='howoldareyou?';$line/(.)\bare\b/ordie"Can'tmatch\n";#匹配are,\b为单词边界；my$string=$1;#捕获括号中

在子程序中默认数组@_中保存了传变的变量例suba{my@list=@_;}&a(1,2,3);那么在子程序a中@_的数值就是(1,2,3)；在子程序中也常用shift,例如：my$a=shift;这

s/\(([^金木水火土]+?)\)/$1/gperl -lpe 's/\(([^金木水火土]+?)\)/$1/g' test.txt注：这个只是简单实现

0x表示的是16进数,0x20等於十进数的320表示的是8进数,010等於十进数的8**是次方的意思,8的2次方是6464x32=2048正确