亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: perl 的幾個常用的基礎(chǔ)函數(shù) [打印本頁]
作者: 努力小伙    時間: 2011-12-21 08:44
標(biāo)題: perl 的幾個常用的基礎(chǔ)函數(shù)
  1. #!/usr/bin/perl -w
  2. use strict;

  4. my $decimal = hex("af"); #十六進制轉(zhuǎn)換為十進制
  5. print "$decimal\n";

  7. my $rand_num = rand(4); #求0-4以內(nèi)的隨機數(shù)
  8. print "$rand_num\n";

  10. my $rand_int = int(rand(4)); #0-4之間的隨機整數(shù)
  11. print "$rand_int\n";

  13. my ($sec,$min,$hour,$mday,$mon,
  14.    $year,$wday,$yday,$isdist) = localtime(time); #localtime（time）
  15.                         #返回9個時間元素
  16. print "$hour:$min:$sec\n";

  18. my @file_stat = stat("found.pl"); #返回12個值
  19. print "@file_stat\n";

  21. #數(shù)組--grep函數(shù)
  22. my @array = qw("google" "domain" "hello" "pen");
  23. print "@array\n";

  25. my @filter = grep(/o/,@array);
  26. print "@filter\n";

  28. #數(shù)組
  29. (my $first_elem) = @filter; #把數(shù)組的第一個元素賦值給變量
  30. print "$first_elem\n";

  32. #哈希表--delete
  33. my %hash = (
  34.     name    => "Tou",
  35.     age    => "24",
  36.     address    => "GuangZhou"
  37. );
  38. #刪除key為name的元素
  39. delete $hash{"name"};

  41. foreach (keys %hash){
  42.     
  43.     my $value = $hash{$_};
  44.     print "$_ => $value\n";
  45. }

  47. #split函數(shù)
  48. my $str = "China-Is-Greatful!";
  49. my @splits = split(/-/,$str);
  50. print "@splits\n";

  52. #reverse 函數(shù)，反轉(zhuǎn)
  53. my @rev = reverse(@splits);
  54. print "@rev\n";

  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";

  61. #length 函數(shù)，求長度
  62. print length($str),"\n";

  64. #substr 函數(shù)，抽提字串
  65. print substr($str,2,4),"\n";

  67. #index 函數(shù)，查找字符串第一次出現(xiàn)的位置
  68. print index($str,"ea",5),"\n";

  70. #join 函數(shù)，在數(shù)組元素之間加入指定字符串
  71. print join(" <= ",@sort_num),"\n";




歡迎光臨 Chinaunix (http://www.72891.cn/) Powered by Discuz! X3.2