2zicon.json

[
   {
      "nick" : [
         "ななぴ"
      ],
      "name" : "西七海",
      "introduction" : "わたしはあまーいチョコレート。あなたの熱気で溶けちゃうの。\n虹コン色黒担当、東京都出身18歳\nななぴこと西七海です。",
      "hometown" : "東京都",
      "name_en" : "Nanami Nishi",
      "twitter" : "nishi_nanami",
      "age" : "18",
      "birthday" : "1996-10-09",
      "name_ja" : "西七海",
      "blood_type" : "AB"
   },
   {
      "nick" : [
         "しげちー"
      ],
      "name" : "重松佑佳",
      "hometown" : "福岡県",
      "introduction" : "博多からきたダイヤモンドの原石。みーんなの愛で輝かせてほしいと。\n福岡県出身の17歳。しげちーこと重松佑佳です。",
      "name_ja" : "重松佑佳",
      "birthday" : "1996-05-20",
      "age" : "17",
      "twitter" : "shigematsu_yuka",
      "name_en" : "Yuka Shigematsu",
      "blood_type" : "B"
   },
   {
      "nick" : [
         "ひよりん"
      ],
      "name" : "木下ひより",
      "hometown" : "東京都",
      "introduction" : "あなたのハートをチューニング。恋のスリーコードを奏でます。\n東京都出身16歳。\n木下ひよりです。ひよりんって呼んでください。",
      "name_ja" : "木下ひより",
      "birthday" : "1997-12-09",
      "age" : "16",
      "twitter" : "kinosita_hiyori",
      "name_en" : "Hiyori Kinoshita",
      "blood_type" : "B"
   },
   {
      "introduction" : "今日はみなりんマジックでみんなを笑顔にしちゃるけん。\n山口県出身の16歳。頼れる委員長。\n＼えーっ！／\nアイドルがぶち大好きなみなりんこと長田美成です。",
      "hometown" : "山口県",
      "name" : "長田美成",
      "nick" : [
         "みなりん"
      ],
      "blood_type" : "O",
      "name_ja" : "長田美成",
      "birthday" : "1997-12-17",
      "age" : "16",
      "name_en" : "Minari Nagata",
      "twitter" : "nagata_minari"
   },
   {
      "twitter" : "nakamura_akari",
      "name_en" : "Akari Nakamura",
      "age" : "15",
      "birthday" : "1998-01-30",
      "name_ja" : "中村朱里",
      "blood_type" : "B",
      "nick" : [
         "あかりん"
      ],
      "name" : "中村朱里",
      "hometown" : "千葉県",
      "introduction" : "＼りんりんりーんあかりんりーん／\nみーんなの笑顔の隣にいたい。\n千葉県出身の15歳。\nあかりんこと中村朱里です。"
   },
   {
      "blood_type" : "O",
      "twitter" : "yoshimura_nana",
      "name_en" : "Nana Yoshimura",
      "age" : "15",
      "birthday" : "1999-08-02",
      "name_ja" : "吉村菜々",
      "introduction" : "あの空に浮かぶ虹のように、みなさんになないろをお届けします。\n神奈川県出身の15歳。\nなぁなこと吉村菜々です。",
      "hometown" : "神奈川県",
      "nick" : [
         "なぁな"
      ],
      "name" : "吉村菜々"
   },
   {
      "blood_type" : "B",
      "name_ja" : "根本凪",
      "birthday" : "1999-03-15",
      "age" : "14",
      "twitter" : "nemoto_nagi",
      "name_en" : "Nagi Nemoto",
      "introduction" : "みんなのハートをねも色に染めちゃってもよかっぺか？\n＼ぺー！／\n茨城県出身世間知らずの14歳。\nねもこと根本凪です。",
      "hometown" : "茨城県",
      "name" : "根本凪",
      "nick" : [
         "ねも"
      ]
   },
   {
      "birthday" : "1999-05-26",
      "name_ja" : "陶山恵実里",
      "name_en" : "Emiri Suyama",
      "twitter" : "suyama_emiri",
      "age" : "14",
      "blood_type" : "O",
      "nick" : [
         "えみりぃ"
      ],
      "name" : "陶山恵実里",
      "hometown" : "東京都",
      "introduction" : "どこまでいってもマイペースなアイドルルーキー。あなたの新人王を狙います。\n東京都出身の14歳。\nえみりぃこと陶山恵実里です。"
   },
   {
      "blood_type" : "A",
      "age" : "13",
      "twitter" : "matoba_karin",
      "name_en" : "Karin Matoba",
      "name_ja" : "的場華鈴",
      "birthday" : "2000-12-30",
      "hometown" : "埼玉県",
      "introduction" : "埼玉県からやってきた最年少の13歳。かりんさまってよんでもいいよ。\n＼かりんさまー！／\nダンスと梅干しが大好きな的場華鈴です。",
      "name" : "的場華鈴",
      "nick" : [
         "かりん",
         "かりんさま"
      ]
   },
   {
      "nick" : [
         "ののた"
      ],
      "name" : "奥村野乃花",
      "hometown" : "東京都",
      "introduction" : "アイドルオタクの進化系。毎日がビッグバン。せーの！\n ＼どーん／\n東京都出身の最年少13歳。\nののたこと奥村野乃花です。",
      "name_ja" : "奥村野乃花",
      "birthday" : "2001-01-04",
      "age" : "13",
      "name_en" : "Nonoka Okumura",
      "twitter" : "okumura_nonoka",
      "blood_type" : "O"
   }
]

2zicon_json.pl

use strict;
use warnings;

use Acme::2zicon;
use JSON;

my $json = JSON->new->allow_nonref;
my $nizicon = Acme::2zicon->new;
my @members = $nizicon->sort('age', 1);
my @list = qw(
    name_ja
    name_en
    nick
    age
    blood_type
    hometown
    introduction
    twitter
);

my $nizicon_data = [];
my $i = 0;
for my $member (@members) {
    $nizicon_data->[$i] = {};
    $nizicon_data->[$i]->{$_} = $member->{$_} for @list;
    $nizicon_data->[$i]->{name} = $member->{name_ja};
    $nizicon_data->[$i]->{birthday} = $member->{birthday}->ymd;
    $i++;
}

print $json->encode($nizicon_data);