このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1305217361/675
#  CSVモジュールを使用してCSVファイルを読み込み。 
#  読み込んだファイル全体を指定フィールドでソートする方法を教えてください。 
#  csvfile = csv.reader(f) 
#  csvfile.sort() 
#  のような書き方をしたら、_csvredaerにそんなメソッドはない、的なエラーです。 
#  また、sortのkeyの書き方がよく解かりません。 
#  リスト(ファイル全体)の中のリスト(行)の中のリストのインデックス指定でソート 
#  すればOKのような気がするのですが、書き方が不明です。よろしくお願いします。 
'CSVファイルを読み込み。読み込んだファイル全体を指定フィールドでソートする'(_ファイル名,_フィールド位置) :-
        get_split_lines(_ファイル名,[','],LL),
        指定フィールドでソートする(LL,_整列済みならび),
        ソートキーを剥がしながら出力する(_整列済みならび).

指定フィールドでソートする(LL,_ソートキーが先頭に付加された整列済みならび) :-
        ソートキーを先頭に付加(LL,LL2),
        sort(LL2,_ソートキーが先頭に付加された整列済みならび).

ソートキーを先頭に付加(_キー位置,[],[]) :- !.
ソートキーを先頭に付加(_キー位置,[L1|R1],[[K|L1]|R2]) :-
        nth1(_キー位置,L1,K),
        ソートキーを先頭に付加(_キー位置,R1,R2).

ソートキーを剥がしながら出力する(_整列済みならび) :-
        ソートキーを剥がしながら(_整列済みならび,L,R),
        カンマ区切り文字列に変形(L,_カンマ区切り文字列),
        writef('%t\n',[_カンマ区切り文字列]),
        R = [].

ソートキーを剥がしながら(_整列済みならび,L,R) :-
        append(_,[[_付加されたソートキー|L]|R],_整列済みならび).

カンマ区切り文字列に変形(L,S) :-
        concat_atom(L,',',S).