1、perl学习

1、字符串函数

print　　chomp　　chop　　length　　uc　　lc　　index

ord　　　　#转符号为ASCII的数字

chr　　　　#转数字为ASCII的字母

substr($string,offset,length)　　#提取子串部分

　　    例子：substr($_,5,length($_)-10)　　　　#截取序列的前后各5pb的bases

　　    offset代表起始字符的位置,length代表引用的字符串长度，如果省略length则代表从起始值到字符串的最后一个字符长度。而

　　    offset如果是负值的话，就会从字符串右边开始指定字符。

join(':',@F)　　　　　　　　#数组链接为字符串

2、定义字符串

　　q()　　  #单引号 quote　　　　　　　　qq()　#双引号 quote quote　　

　　qw()　　#单词表 quote word　　　　　qx()　#执行外部程序 quote execute

3、here文档　　#

　　here文档定义一个字符串，

print <<EOF;#中间无空格　　　　　　　　　　　　my $q =<<BB;

this is xx.　　　　　　　　　　　　　　　　　　　　a　　b　　c

EOF　　　　　　　　　　　　　　　　　　　　　　　d　　e　

　　　　　　　　　　　　　　　　　　　　　　　　　BB

显示：this is xx.　　　　　　　　　　　　　　　　　print $q

3、日期时间

perl -le '$a=localtime;print $a'

perl -le 'print scalar(localtime)'

3、数组函数

pop　　push　　shift　　unshift

reverse　　　　sort(sort {$a<=>$b}) @F

map(chr $_,@F)　　grep(/^#/,@F)或者grep{/^#/} @F

split　　split(/:/)　　split(/:/,$a)

splice　　　　#和字符串处理函数substr相似

　　my @a=qw(1 2 3 4 5 6);print "@a ";　　　　　　　　#结果是1 2 3 4 5 6

　　my @c=splice(@a,2,3);

　　print "@c ";　　　　　　　　　　　　　　　　　　　　　#结果是3 4 5

　　print "@a ";　　　　　　　　　　　　　　　　　　　　　#结果是1 2 6

delete $F[3]　　　　#删除数组中该元素

exists $F[3]　　#判断该元素是否存在

undef 　　　　　　#让数组变成空白

undef　　chop　　chomp　　scalar

4、哈希函数

keys　　values　　each　　delete　　exists

5、引用

1、$a=4;　　　　　　　　　　$a=$b

2、$a=[1,2,3];　　　　　　　  $a=@b

3、$a={　　　　　　　　　　　$a=\%b

　　q=>1,

　　w=>2,};

4、 $a=sub{};　　　　　　　 $a=&b

print $$a　　print @$a　　print %$a