常用的perl函數有哪些

這篇文章主要為大家展示了“常用的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 $hashaegqsqibtmh;          # 返回false

$hashaegqsqibtmh = undef;

exist $hashaegqsqibtmh；      # 返回true

以上是“常用的perl函數有哪些”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！