下面是输入和输出的详细如何解析JSON文件,而无需使用JSON库和JSON解析器
输入:这只是一个样本输入和实际投入是巨大的,只是在单行
[{"mnemonic":"PT.IA1","ID":"000628"}, {"mnemonic":"EOR.1","ID":"000703"}]
代码:我试图通过设置分隔符为}读取文件,所以我得到的每个值,但由于其单行文件,在一个其打印的一切,怎么办我通过设置一个分隔符来解析这一行行,是分裂功能 足以做这份工作?
our $conf =
{
chunk_separator => '\{,',
}
open(FH, "Etot_Data.txt") or die $!;
while (my $chunk = <FH>){
my $sections = [ split $conf->{chunk_separator}, $chunk ]
print "$chunk\n";
}
输出
我想从每个值和前面加上选择 “ID”, “ABC”。它 最终字符串看起来像abc.000628或abc.000703,并将其保存在散列 除了在json字符串中的ID不需要其他值 是否有可能读取JSON文件作为一个普通的文件和操作它。 我没有JSON解析器和我没有使用它
感谢您的帮助
http://www.perlmonks.org/?node_id=995856 – toolic
CPAN上的JSON解析器的源代码可用。你可以阅读,看看他们是如何做到的。 https://metacpan.org/source/MAKAMAKA/JSON-PP-2.27400/lib/JSON/PP.pm – Quentin
*我没有json解析器,我没有选择使用它。不太可能:http://www.perlmonks.org/?node=693828 – Quentin