[Erlang] ASCIIコードで表示されてしまう

Question

前提・実現したいこと

初歩的な質問かつ知識不足なのはご了承ください。
適当なテキストファイルをjson形式で新たに作成したい。

発生している問題・エラーメッセージ

sample.txt(図1)というファイルをjson形式に変える過程でsample.json(図2)のようにASCIIコードになってしまう。

[true, #{<<"1">> => 2, <<"array">> => [[[[1]]], #{<<"ab">> => <<"cd">>}, [], #{}, false]}, null]

図1　sample.txt

[
  91,
  116,
  114,
  117,
  101,
  44,
  32,
  35,
  123,
  60,
  60,
  34,
  49,
  34,
  62,
  62,
  32,
  61,
  62,
  32,
  50,
  44,
  32,
  60,
  60,
  34,
  97,
  114,
  114,
  97,
  121,
  34,
  62,
  62,
  32,
  61,
  62,
  32,
  91,
  91,
  91,
  91,
  49,
  93,
  93,
  93,
  44,
  32,
  35,
  123,
  60,
  60,
  34,
  97,
  98,
  34,
  62,
  62,
  32,
  61,
  62,
  32,
  60,
  60,
  34,
  99,
  100,
  34,
  62,
  62,
  125,
  44,
  32,
  91,
  93,
  44,
  32,
  35,
  123,
  125,
  44,
  32,
  102,
  97,
  108,
  115,
  101,
  93,
  125,
  44,
  32,
  110,
  117,
  108,
  108,
  93
]

図2　sample.json

該当のソースコード

-module(txt_to_json).
-author("MaSaKai").
-import(jsone, [encode/2]).

%% API
-export([main/0]).
%% -compile([all_export]).

main() ->
  Sentense = readlines("sample.txt"),
  Data = exchange_json(Sentense),
  writelines("sample.json", Data).

readlines(FileName) ->
  {ok, Device} = file:open(FileName, [read]),
  try get_all_lines(Device)
  after file:close(Device)
  end.

get_all_lines(Device) ->
  case io:get_line(Device, "") of
    eof  -> [];
    Line -> Line ++ get_all_lines(Device)
  end.

writelines(FileName, Data) ->
  case file:write_file(FileName, Data) of
    ok -> io:format("~s/n", [Data]);
    {error, Reason} -> Reason
  end.

exchange_json(Data) ->
  encode(Data, [{indent, 2}, {space, 1}]).

試したこと

jsone's linkを参考にしつつ、エンコードするデータの形を工夫してみたが求めている結果が得られなかった。

補足情報（FW/ツールのバージョンなど）

Version : V10.6
Editor : Intellij

Answer 1

結論から言うと以下の2つのことをするとうまくいきます。

1. main/0でreadlines/1を呼んでいるところを、file:consult/1に置き換える
2. sample.txtファイルの行末にピリオド.をつける。（つけないとfile:consult/1がsyntax errorを返す）

修正後のmain/0

main() ->
  %% Sentense = readlines("sample.txt"),
  {ok, Sentense} = file:consult("sample.txt"),
  Data = exchange_json(Sentense),
  writelines("sample.json", Data).

file:consult/1はファイルの内容をパースして、Erlangのterm（atom, list, mapなどの値）にして返します（ドキュメント）。一方、readlines/1はファイルの内容を文字列にして返します。

jsoneのサンプルコードを見るとわかりますが、JSONへ変換するデータは以下のようなErlangのtermです。文字列ではありません。

> Data = [true, #{<<"1">> => 2, <<"array">> => [[[[1]]], #{<<"ab">> => <<"cd">>}, [], #{}, false]}, null].

file:consult/1を使うと、jsoneが期待しているデータが用意できるわけです。

ではなぜjsone:encode/2に文字列を渡すと、以下のようなbinary stringが生成されてしまうのでしょうか？

[
  91,
  116,
  114,
  117,
  101,

その理由はErlangの文字列が文字コードのlistだからです。

%% Erlangのシェルでこういうlistを入力すると
> [91, 116, 114, 117, 101].
"[true"   %% 文字列として表示される

jsoneのREADMEに「Data Mapping (Erlang <=> JSON)」というセクションがあります。

それを見ると、Erlangのlist（例：[1,2,3]）は、JSONのarray（例：[1,2,3]）に変換されることがわかります。つまり、文字列"[true"にあたるlist[91, 116, 114, 117, 101が、JSONの数値のarrayに変換されていたわけです。

Comments

[MaSaKai]

早急及び丁寧な解答、誠にありがとうございます。原因としては、jsoneの仕様を把握しきれていませんでした。