常用的perl函数：
chop 和 chomp:
my $line = “hello\n”;
chomp $line; # 删掉$line末尾的”\n”（$/指定）
chop $line; #删除$line最后一个字符
split 和 join： # 切割函数、胶水函数
$str = “A:B:C”;
my @arr = split/:/,$str; # @arr = qw(A B C)
$str = join(“,”,@arr); # $str=“A,B,C”
scalar 返回数组元素个数
my @arr = (1,2,3,4);
print scalar(@arr); # 显示 4
my $num = @arr; print $num; #显示 4
$num = $#arr; prnt $num; # 显示 3
length 返回标量长度
my $len = length(“ATCGAA”);
print $len; #显示 6
字符串截取函数：substr(标量，起点，长度)
my $seq = “ATGTAA”;
my $code = substr($seq,0,3);
print $code; # 显示ATG
substr($seq,0,3)=“TTG”;
print $seq; # 显示 TTGTAA
标量或数组倒序：reverse函数
my @arr = (1,2,3,4);
my @rev = reverse @arr; # @rev = (4,3,2,1)
my $str = “ATCG”;
my $rev = reverse $str; # $rev = “GCTA”
shift、pop、unshift、push函数
my @arr = (1,2,3,4);
取数组的第一个元素：
my $first = shift @arr; # @arr: (2,3,4)
取数组的最后一个元素:
my $last = pop @arr; # @arr: (2,3)
往数组开头加元素：
unshift @arr, 1; # @arr: (1,2,3)
往数组后面加元素：
push @arr, (4,5); # @arr: (1,2,3,4,5)
对数组排序：sort 函数
按数字大小排序：@SORT = sort {$a <=> $b} @array;
按字典顺序排序：@SORT = sort {$a cmp $b} @array;
# 1 默认是按字典顺序排序：@SORT =sort @array；
# 2 默认是从小到大排序
# 3 倒序排序：把上式的$a 和 $b 位置调换
举例：
my @arr = (2,14,3);
my @arr2 = sort @arr;
print “@arr2\n”; # 输出：14 2 3
@arr2 = sort {$a<=>$b} @arr;
print “@arr2\n”; # 输出：2 3 14
Keys 和 values 函数
my %hash = (a=>1, b=>2, c=>3);
my @key = keys %hash; #@key: (c,a,b)
my @value = values %hash; # @value: (3,1,2)
print “keys = @keys\nvalues = @value\n”;
显示：
keys = c a b
values =3 1 2
defined 和 exists函数
defined：如果其参数未被定义，或值是 undef就返回 false，否则返回 true
exists：检验一个key在hash中是否存在，存在时返回true，否则返回false
my $str;
defined $str; # 返回false
$str = 1;
defined $str; # 返回true
my %hash=(a=>1,b=>2,c=>3);
exist $hash{a}; # 返回true
exist $hash{d}; # 返回false
$hash{d} = undef;
exist $hash{d}； # 返回true
