perl 的幾個常用的基礎(chǔ)函數(shù)

努力小伙

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. my $decimal = hex("af"); #十六進制轉(zhuǎn)換為十進制
   
5. print "$decimal\n";
   
6. 
   
7. my $rand_num = rand(4); #求0-4以內(nèi)的隨機數(shù)
   
8. print "$rand_num\n";
   
9. 
   
10. my $rand_int = int(rand(4)); #0-4之間的隨機整數(shù)
    
11. print "$rand_int\n";
    
12. 
    
13. my ($sec,$min,$hour,$mday,$mon,
    
14.    $year,$wday,$yday,$isdist) = localtime(time); #localtime（time）
    
15.                         #返回9個時間元素
    
16. print "$hour:$min:$sec\n";
    
17. 
    
18. my @file_stat = stat("found.pl"); #返回12個值
    
19. print "@file_stat\n";
    
20. 
    
21. #數(shù)組--grep函數(shù)
    
22. my @array = qw("google" "domain" "hello" "pen");
    
23. print "@array\n";
    
24. 
    
25. my @filter = grep(/o/,@array);
    
26. print "@filter\n";
    
27. 
    
28. #數(shù)組
    
29. (my $first_elem) = @filter; #把數(shù)組的第一個元素賦值給變量
    
30. print "$first_elem\n";
    
31. 
    
32. #哈希表--delete
    
33. my %hash = (
    
34.     name    => "Tou",
    
35.     age    => "24",
    
36.     address    => "GuangZhou"
    
37. );
    
38. #刪除key為name的元素
    
39. delete $hash{"name"};
    
40. 
    
41. foreach (keys %hash){
    
42.     
    
43.     my $value = $hash{$_};
    
44.     print "$_ => $value\n";
    
45. }
    
46. 
    
47. #split函數(shù)
    
48. my $str = "China-Is-Greatful!";
    
49. my @splits = split(/-/,$str);
    
50. print "@splits\n";
    
51. 
    
52. #reverse 函數(shù)，反轉(zhuǎn)
    
53. my @rev = reverse(@splits);
    
54. print "@rev\n";
    
55. 
    
56. #sort 函數(shù)，排序
    
57. my @numbers = qw(1 3 2 34 21 0 2);
    
58. my @sort_num = (sort{$a <=> $b} @numbers);
    
59. print "@sort_num\n";
    
60. 
    
61. #length 函數(shù)，求長度
    
62. print length($str),"\n";
    
63. 
    
64. #substr 函數(shù)，抽提字串
    
65. print substr($str,2,4),"\n";
    
66. 
    
67. #index 函數(shù)，查找字符串第一次出現(xiàn)的位置
    
68. print index($str,"ea",5),"\n";
    
69. 
    
70. #join 函數(shù)，在數(shù)組元素之間加入指定字符串
    
71. print join(" <= ",@sort_num),"\n";