Perl でソートする際に逆順にする

$eq_result = $a eq $b ; # $a と$b が等しいかどうか
$ne_result = $a eq $b ; # $a と$b が等しくないかどうか　　
$cmp_result = $a eq $b ; # $a と$b を比較する

−逆順にソートする

@result = sort { $b cmp $a }　@all;

−数字として認識して大小の比較を行う

@result = sort { $a <=> $b }　@all;

−数字として認識して大小の比較を行う

@result = sort { length($a) <=> length($b) }　@all;

短いスクリプト（読み込んでgrepして出力）

@all = <>
@result = grep /hoge/, @all;
print @result;