常用的perl函数有哪些

这篇文章主要为大家展示了“常用的perl函数有哪些”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“常用的perl函数有哪些”这篇文章吧。

成都创新互联公司是专业的集贤网站建设公司，集贤接单;提供成都网站设计、成都网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行集贤网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

常用的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函数有哪些”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！