我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

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


网站标题:常用的perl函数有哪些
本文来源:http://mswzjz.cn/article/jjeodc.html

其他资讯