1.  在字符串内用index   
  2.  
  3. my $stuff = 'Howdy world!'
  4. my $where = index($stuff,'wor'); 
  5. print $where;   #  6 
  6.   
  7. my $stuff = 'Howdy world!'
  8. my $where1 = index($stuff,'w');           #2 
  9. my $where2 = index($stuff,'w',$where1+1); #6 
  10. my $where3 = index($stuff,'w',$where2+1); #-1 
  11.   
  12. 在字符串内用 rindex 搜所 
  13. my $last_slash = rindex("/etc/password",'/');   #4 
  14.   
  15. my $fred = 'Yabba dabba doo!'
  16. my $where1 = rindex($fred,'abba');             #7 
  17. my $where2 = rindex($fred,'abba',$where1-1);   #1 
  18. my $where3 = rindex($fred,'abba',$where2-1);   #-1 
  19.   
  20. 用substr处理子串  
  21. $part = substr($string,$initial_position,$length); 
  22.   
  23. my $mineral = substr('Fred J. Plintstone',8,5);   #Plint 
  24. my $rock = substr 'Fred J. Plintstone',13,100;    #stone 
  25.   
  26. my $string = 'Hello, world!'
  27. substr($string ,0,5) = 'Goodby';   #Goodby, world! 
  28.   
  29. substr和index 一起使用 
  30. my $long = 'some very very long string'
  31. my $lin = index($long,'l');                   #15 
  32. my $right = substr($long,index($long,'l'));   #long string 
  33.   
  34.   
  35.   
  36.   
  37. mmy $string = 'dkfkkakdfredddddd'
  38. substr($string,-13) =~ s/fred/barney/g;   #dkfkkakdbarneyddddd 
  39.   
  40.   
  41.   
  42.   
  43.   
  44.   
  45.   
  46.   
  47.   
  48.   
  49.   
  50.   
  51.   
  52.   
  53.   
  54.   
  55. 高级排序 
  56.    sub by_number { 
  57.       if ($a<$b) {-1} elsif ($a>$b){ 1 } else {0} 
  58.       } 
  59.    my @some_numbers = qw /3 4 6 1 2 9/;         # 3 4 6 1 2 9 
  60.    my @result = sort by_number @some_numbers;   # 123469 
  61.   
  62.    sub by_number {$a <=> $b} 
  63.    my @some_numbers = qw /3 4 6 1 2 9/;  
  64.    my @result = sort by_number @some_numbers; 
  65.   
  66.   
  67. 按哈希值排序 
  68. my %score = ('bareny' => 195,'fred' => 205,'dino' => 30,'bamm-bamm' => 195); 
  69. my @winners = sort by_score keys %score; 
  70. sub by_score { 
  71.    $score{$b} <=> $score{a} 
  72. print "@winners";  #fred bamm-bamm dino bareny 
  73.   
  74. 哈希值查找Fred 
  75. my $flag = 0
  76. foreach my $key(keys %name) { 
  77.    next unless $key =~ /Fred/; 
  78.    $flag = $key; 
  79.    last; 
  80.