从文件文本perl中创建哈希数组

这是JSON数据(Javascript Object Notation),除了最后一个逗号,应该是一个结束方括号].使用该JSON模块将其解码为Perl数据结构

该计划显示了原则.它只打印每个项目的主题行,但我认为你明白了

use strict;
use warnings 'all';

use JSON qw/ decode_json /;

my $json = do {
    open my $fh, '<:raw', 'text_file.txt' or die $!;
    local $/;
    <$fh>;
};

my $data = decode_json($json);
my $items = $data->{ITEMS};

for my $item ( @$items ) {
    print $item->{SUBJECT}, "\n";
}

产量

UPCOMING EVENTS: ORIENTATION 2016
PROJECT 1 FIRST TIME MEETING
PROJECT 1 FIRST TIME MEETING