Postgresqlで文字変換をかけたい

Oracleでは全角、半角に変換する際に
TO_MULTI_BYTE
TO_SINGLE_BYTE
の関数を使用することができるが、

Postgresqlではこのような関数が存在しないため
もし脱Oracleに際してそのような動きが必要になった場合
関数を作る必要がある

基本的にはtranslate（）を使用して
一文字ずつ変換していくのが手法になる

CREATE OR REPLACE FUNCTION conv_half_to_full(beforetext TEXT)
RETURNS TEXT 
AS $$
DECLARE
  result text := beforetext;
BEGIN
  result := translate(result,
                      '0123456789',
                      '０１２３４５６７８９'
                      );
  result := translate(result,
                      'abcdefghijklmnopqrstuvwxyz',
                      'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ'
                      );
  result := translate(result,
                      'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
                      'ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ'
                      ); 
  return result;
END;
$$ LANGUAGE postgresql;

上記のような関数を用紙してあげることで

--実行
SELECT conv_half_to_full('Hello World123');

--実行結果
Ｈｅｌｌｏ Ｗｏｒｌｄ１２３

というように変換をすることができる
translate関数は中身を一文字ずつ変換するため
このような書き方でも変換ができる

今回は半角→全角としたが
反対に全角を半角にしたい場合は
translate関数の第二引数と第三引数を
変えてあげるだけで関数を作成することができる

カタカナへの対応は別途関数が必要であり
またパとﾊﾟでは半濁音が分かれていることからもわかるように
濁点、半濁点の為に別途関数を用紙する必要が出てくる

濁点半濁点を先に変換してからreplaceをしていく方法であれば

CREATE OR REPLACE FUNCTION htof_kana(src TEXT)
RETURNS TEXT AS $$
DECLARE
    result TEXT := src;
    i INT;

    -- 2文字（濁点・半濁点）対応
    half2full_daku CONSTANT TEXT[][] := ARRAY[
        ['ｶﾞ','ガ'], ['ｷﾞ','ギ'], ['ｸﾞ','グ'], ['ｹﾞ','ゲ'], ['ｺﾞ','ゴ'],
        ['ｻﾞ','ザ'], ['ｼﾞ','ジ'], ['ｽﾞ','ズ'], ['ｾﾞ','ゼ'], ['ｿﾞ','ゾ'],
        ['ﾀﾞ','ダ'], ['ﾁﾞ','ヂ'], ['ﾂﾞ','ヅ'], ['ﾃﾞ','デ'], ['ﾄﾞ','ド'],
        ['ﾊﾞ','バ'], ['ﾋﾞ','ビ'], ['ﾌﾞ','ブ'], ['ﾍﾞ','ベ'], ['ﾎﾞ','ボ'],
        ['ﾊﾟ','パ'], ['ﾋﾟ','ピ'], ['ﾌﾟ','プ'], ['ﾍﾟ','ペ'], ['ﾎﾟ','ポ'],
        ['ｳﾞ','ヴ']
    ];

    -- 1文字の半角カナ対応
    half2full CONSTANT TEXT[][] := ARRAY[
        ['ｱ','ア'], ['ｲ','イ'], ['ｳ','ウ'], ['ｴ','エ'], ['ｵ','オ'],
        ['ｶ','カ'], ['ｷ','キ'], ['ｸ','ク'], ['ｹ','ケ'], ['ｺ','コ'],
        ['ｻ','サ'], ['ｼ','シ'], ['ｽ','ス'], ['ｾ','セ'], ['ｿ','ソ'],
        ['ﾀ','タ'], ['ﾁ','チ'], ['ﾂ','ツ'], ['ﾃ','テ'], ['ﾄ','ト'],
        ['ﾅ','ナ'], ['ﾆ','ニ'], ['ﾇ','ヌ'], ['ﾈ','ネ'], ['ﾉ','ノ'],
        ['ﾊ','ハ'], ['ﾋ','ヒ'], ['ﾌ','フ'], ['ﾍ','ヘ'], ['ﾎ','ホ'],
        ['ﾏ','マ'], ['ﾐ','ミ'], ['ﾑ','ム'], ['ﾒ','メ'], ['ﾓ','モ'],
        ['ﾔ','ヤ'], ['ﾕ','ユ'], ['ﾖ','ヨ'],
        ['ﾗ','ラ'], ['ﾘ','リ'], ['ﾙ','ル'], ['ﾚ','レ'], ['ﾛ','ロ'],
        ['ﾜ','ワ'], ['ｦ','ヲ'], ['ﾝ','ン'],
        ['ｧ','ァ'], ['ｨ','ィ'], ['ｩ','ゥ'], ['ｪ','ェ'], ['ｫ','ォ'],
        ['ｬ','ャ'], ['ｭ','ュ'], ['ｮ','ョ'], ['ｯ','ッ'],
        ['ｰ','ー'], ['･','・'], ['｡','。'], ['､','、'], ['｢','「'], ['｣','」']
    ];
BEGIN
    -- 2文字（濁点・半濁点）を先に変換
    FOREACH i IN ARRAY generate_subscripts(half2full_daku, 1) LOOP
        result := replace(result, half2full_daku[i][1], half2full_daku[i][2]);
    END LOOP;

    -- 1文字の半角カナを変換
    FOREACH i IN ARRAY generate_subscripts(half2full, 1) LOOP
        result := replace(result, half2full[i][1], half2full[i][2]);
    END LOOP;

    RETURN result;
END;
$$ LANGUAGE plpgsql;

といった具合でしょうか
translateでやる場合がぱっと思いつかなかったので
replaceで強引に変換する形にしています

postgresqlで文字変換を行う場合は
このような手間が必要になるため

各種OracleのsqlをPostgresql対応する場合などは
注意が必要である

備忘までに