JSON Perlで指定のデータのみ抽出

質問

恐れ入ります。

{"num":29,"name","山田太郎"}{"num":30,"name","山田花子"}{"num":31,"name","山田次郎"}
というJSONデータを読み込むことは出来たのですが、
この中からnumを、例えば29と指定したら、
{"num":29,"name","山田太郎"}のみが表示される形にしたいのですが、方法が分かりません。

宜しくお願い致します。

回答No.1

Wap58 · ベストアンサー

安直にこんなのでいいのかしら

print'Type:';
chomp(my $std = <STDIN>);
my $an='{"num":29,"name","山田太郎"}{"num":30,"name","山田花子"}{"num":31,"name","山田次郎"}';
my @bn = $an =~ /({"num":$std,[^}]+})/;
print"@bn\n";

お礼

大変有難う御座います。無事解決できました。