您好,登录后才能下订单哦!
这篇文章主要为大家展示了“常用的perl函数有哪些”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“常用的perl函数有哪些”这篇文章吧。
常用的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
以上是“常用的perl函数有哪些”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注亿速云行业资讯频道!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。