DBIx :: Class：列の複数の部分文字列をどのようにソートできますか？

Question

私はこのスキーマ次の文書番号を使用してテーブルとSQLiteのデータベースを持っている：

16-145-45 
16-127-30 
16-141-42 
16-122-14 
15-090-04 
15-089-15 
15-089-05 

私はこのように、番号の最初と最後の部分にResultSetを並べ替えしたいと思います。まず、最後の2桁でソートされた上位2桁の接頭辞（16）で始まり、次のブロックと同じようにすべての文書が続きます。

16-145-45 
16-141-42 
16-127-30 
16-122-14 
15-089-15 
15-089-05 
15-090-04 

カスタムorder_by句のいくつかの並べ替えとDBIx::Classでこれを行う方法はありますか、どのようなアプローチでしょうか？

数の中間部分もソートするために考えられているので、私は、動作しない、次のことを試してみました：

my @rs = $self->search(undef, 
    { 
     order_by => { -desc => 'me.number' } 
    } 
); 

Answer 1

あなたは、データベースが結果をソートしたい場合は、あなたが使用する必要がありliteral SQL 。

my @rs = $self->search(undef, 
    { 
     '+select' => [ 
      { sort_key => \ "split_part(number, '-', 1) || split_part(number, '-', 3)" }, 
     ], 
     '+as' => [ qw(sort_key) ], # Make sort key accessible from DBIC. 
     order_by => { -desc => 'sort_key' }, 
    } 
); 

別：+select result set attributeと出力列を作成することにより、

my @rs = $self->search(undef, 
    { 
     order_by => \ "split_part(number, '-', 1) || split_part(number, '-', 3) DESC", 
    } 
); 

または：ここ

はPostgresのための例です（私は、構文の強調表示を修正するために、バックスラッシュの後にスペースを追加しました）アプローチは、ソートされていない結果セット全体を取得し、それをクライアント側でソートすることです。 DBICには特別な機能がありませんので、Perlの sort関数を使用してください。

Answer 2

ソートする関数の値と等しい列を結果セットから抽出する必要があります。次に、あなただけの通常の

としてorder_by句でそれらの列を置くことができるこれはあなたの文書番号フィールドがdocnumと呼ばれていることを前提としています。それはTableからすべての列をフェッチプラスdocnumの2つのサブストリングがdocnum1と

my $rs = $schema->resultset('Table')->search(undef, 
    { 
     '+select' => [ 
      { substr => [ 'docnum', 1, 2 ], -as => 'docnum1' }, 
      { substr => [ 'docnum', -2 ], -as => 'docnum3' }, 
     ], 
     order_by => [ { -desc => 'docnum1' }, { -desc => 'docnum3' } ], 
    } 
); 

Answer 3

@nwellnhofからの答えは魔法のように動作するのでdocnum3と呼ばれ、私は知らないSQLiteのために対応する構文を提供したかったですsplit_part()機能です。

# SQL for filtering the doc number in SQLite 

my @rs = $self->search(undef, 
    { 
     order_by => \ "SUBSTR(me.number, 1, 2) || SUBSTR(me.number, -2, 2) DESC" 
    } 
);