私は YAML 形式を使用しており、過去 6 か月ほどでかなりの成功を収めています。
ただし、YAML パーサーの純粋な Perl 実装は、読み取り可能なファイルを手書きするのが非常に面倒であり、(私の意見では) ファイルの最後に改行が必要になるなどの厄介な癖があります。また、私のプログラムの他の部分に比べて非常に遅いです。
私は自分のプロジェクトの次の進化を考えており、代わりに JSON を使用することを検討しています (結局のところ、YAML のほとんどが厳密なサブセットです)。しかし、どの形式が Perl で最もコミュニティの牽引力と努力を持っているのでしょうか?
今日、Perl、YAML、または JSON での単純なデータ記述の長期的なフォーマットとして、どちらが優れているように見えますか?またその理由は?
YAMLとJSONは、Perlで解決されていないものであり、私はその真っ只中にいる傾向があることを認めます。どちらかがあなたに同じくらい多くのコミュニティの牽引力をもたらすだろうと私はアドバイスします。フォーマットのさまざまな長所と短所に基づいて決定します。私はそのようなさまざまなデータシリアル化オプションを分解します（人々がそれに追加できるように、これをコミュニティwikiに移動します）：
YAMLの長所
YAMLの短所
JSONの長所
JSONの短所
XMLの長所
XMLの短所
Perl / Data :: Dumper Pros
Perl / Data::Dumperの短所
保存可能な長所
保存可能な短所
ほとんどのものと同様に、それは依存します。速度と相互運用性 (他の言語との) が必要な場合は、JSON、特にJSON::XSを使用すると思います。
Perl モジュールでのみ使用されるものが必要な場合は、YAML を使用してください。JSON よりも、YAML を使用したデータ記述をサポートする、または YAML に依存する Perl モジュールを CPAN で見つける方がはるかに一般的です。
私は権威ではなく、この意見は主に直感と推測に基づいていることに注意してください. 特に、私は JSON::XS とYAML::XSのプロファイルを作成していません。もし私が攻撃的に無知であるなら、誰かを怒らせて、私を正すことで議論に有用な情報をもたらすことができることを願っています.
人間が読みやすいことがすべてです。これが主な関心事である場合は、YAML を選択してください。
YAML:
american:
- Boston Red Sox
- Detroit Tigers
- New York Yankees
national:
- New York Mets
- Chicago Cubs
- Atlanta Braves
JSON:
{
"american": [
"Boston Red Sox",
"Detroit Tigers",
"New York Yankees"
],
"national": [
"New York Mets",
"Chicago Cubs",
"Atlanta Braves"
]
}
純粋な Perl YAML 実装 (YAMLではなくモジュールYAML::Syck) には、深刻な問題があるようです。最近、非常に長い行 (32k 文字程度) を含む YAML ドキュメントを処理できないという問題に遭遇しました。
YAML は、bless された変数を保存およびロードすることができ、デフォルトで実行されます (以下のスニペット*sepia-repl*は Emacs のバッファーからコピーされたものです)。
I need user feedback! Please send questions or comments to seano@cpan.org.
Sepia version 0.98.
Type ",h" for help, or ",q" to quit.
main @> use YAML
undef
main @> $foo = bless {}, 'asdf'
bless( {}, 'asdf' )
main @> $foo_dump = YAML::Dump $foo
'--- !!perl/hash:asdf {}
'
main @> YAML::Load $foo_dump
bless( {}, 'asdf' )
DESTROY信頼されていないデータを使用して、アプリケーションで定義された任意のメソッド (またはアプリケーションが使用する任意のモジュール)を呼び出すことができるため、これはセキュリティ上非常に恐ろしいことです。
次の短いプログラムは、問題を示しています。
#!/usr/bin/perl
use YAML;
use Data::Dumper;
package My::Namespace;
sub DESTROY {
print Data::Dumper::Dumper \@_;
}
package main;
my $var = YAML::Load '--- !!perl/hash:My::Namespace
bar: 2
foo: 1
';
JSON はデフォルトではこれを許可しません。Perl の「オブジェクト」をシリアライズすることは可能ですが、そのためには TO_JSON メソッドを定義する必要があります。
JavaScript Object Notation を検討しているなら、「Perl Object Notation」を使ってみませんか?
JSON:
{"name": "bob", "parents": {"mother": "susan", "father": "bill"}, "nums": [1, 2, 3]}
パール:
{name => "bob", parents => {mother => "susan", father => "bill"}, nums => [1, 2, 3]}
Storableの使用を検討することもできます。これにより、非常に優れた速度ブーストが得られる可能性があります。トレードオフは次のとおりです。