Perl学习笔记（9） 字符串操作与排序

字符串操作与排序

• 找出主串中子串的位置。$pos = index($string, $substr);返回在$string中第一次出现$sbustr的位置。
• 抽取出字串substr。 my $sub = substr($string, $startpos , $len);
• 格式字符串函数sprintf, my $str = sprintf "%d,%f, %s",$date,$value,$name;
• 自定义排序，可以自定义一个只有变量$a, $b且返回－1，0，1的自定义排序比较函数。
  my @result = sort by_number @Orginal; sub by_number{$a<=>$b} ; <=>表示按数值比较。另cmp表示按ASCII码比较。
  排序比较函数还可以这么写:
  sub sort_p
  {
         $fine($a) cmp $fine($b) or
         $socorse($a) <=> $scorce($b) or
          $a <=> $b
  }#进行多个字段关联的排序。