つれづれなるままに

_ [日記] カウンター

135人。

こうなると何を書いていいのか迷ってしまうあたり。。。

今日はVTuberがらみの話題はないです。

キズナアイが新衣装を披露していたぐらい?

YuNi の動画は明日か明後日のアップかな?

_ [PC] Perl で JSON (おぼえがき)

Perl でハッシュや配列のテーブルのリファレンスを作ったとする。

それをJSON::PPパッケージで整形して出力する。

例えばこんなの?

#!/bin/env perl
use warnings;
use strict;
use JSON::PP;

my $table;
$table->{a}="a1";
$table->{b}=[1,2,3];
$table->{c}="c1";
my $json=JSON::PP->new->pretty->encode($table);
print $json;

これを実行すると以下のようになる。

{
  "c" : "c1",
  "b" : [
     1,
     2,
     3
  ],
  "a" : "a1"
}

a と b と c はハッシュテーブルのキーだから順不同になるので、どの順番で出てくるかはその時次第、と。配列は添字で区別されるので順番は変わらない。もっと複雑なものでも、多分大丈夫。

多分、これをファイルにしたものを読み込むときは JSON::PP で decode してやればいいんじゃないかな?

これは便利。