Perl - 文字列処理とソート

$str = "abcdefg";
$pat = "cde";
$ind = index $str, $pat;

この時perl内で比較対象値（2つの値）は自動的にサブルーチン内の変数$a、$bを用意してくれるので、何の順に並ばせるのかのみをコーディングすればよい。

sub by_numbers
{
  #昇順に並べる
  #$aが$bよりも先に現れるなら-1を返し、$bの方が先に現れるなら1を返す
  if ($a < $b) { -1 } elsif ($a > $b) { 1 } else { 0 };
}
@array = (3, 4, 7, 1, 5, 9, 6);
@result = sort by_numbers @array;
print @array;

#上記の条件式にはショートカットが用意されている。(スペースシップ演算子）
#サブルーチンの書き換え
sub by_numbers
{
  #昇順
  $a <=> $b;
  #降順
  #$b <=> $a;
}
#上記のソートはインラインを使い、更に短く書く事ができる。
@result = sort { $a <=> $b } @array;