perl -常用正则表达式笔记

写perl程序的一些小结

1，调用系统命令``

my ($line,$name ) = split/\s+/, `wc -l infile`;

#$line:6   $name:inflie

2,善用perl 模块

use File::Basenam

use Getopt::Long

......

3,习惯于写帮助信息和注释

4，使用die,warn,use,strict

 

 

① 替换 ：s

$string = ~s/<pattern>/<replacement>/; #返回值为替换次数

s/ / /i;   #不区分大小写

s/ / /g; #全局替换

s# # #g;   #可以用其他界定符代替“/”

my $str = 'My heart will go on,';

$str = ~s/go/went/; #将go替换成went

#$str :'My heart will went on,';

② 匹配 ：m

$string = ~m/<regexp>/; #m 可省略 匹配成功返回真，否则为假

③ 翻译:tr

$string = ~tr/<wordlist1>/<wordlist2>/;

当str1比str2长时，其多余字符替换为str2的最后一个字符；当str1中同一个字符出现多次时，使用第一个替换字符；返回替换次数。

eg:将基因序列方向互补：

my $seq = 'AAATTTCCCGGG';</