さじろーどっとねっと
<@ret = access( "sort $cal $no, $cal $no, .... ",@rec)>

条件に従って配列をソートします。 関数連結対応に対応しています。
引数
$cal
ソート用の拡張パラメタです。up:数字昇順、down:数字降順、cup:文字昇順、cdown:文字降順の4パターンあります。
$no
ソート対象の項目番号を指定します。
@rec
配列を指定します。
@ret
抽出したデータを返します
Sample Program

require "sajidb.pl"; ## データベースファイルの宣言
$sdb = new sajidb(); ## データベースの初期化

@data=( "1<>ddd<>", "2<>ccc<>", "3<>bbb<>", "4<>aaa<>" );

## 0番目の項目を数字昇順でソートします。
@dat=$sdb->access("sort up 0", @data);

## 1番目の項目を文字降順でソートします。
@dat=$sdb->access("sort cdown 1", @data);

## 1番目の項目を文字降順で、0番目の項目を数字昇順でソートします。
@dat=$sdb->access("sort cdown 1, up 0", @data);

ブックマークに追加する