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