1*3d006088Sbeck#!/usr/bin/perl 2*3d006088Sbeck 3*3d006088Sbeck# $OpenBSD: convert.perl,v 1.1 2020/07/15 03:13:25 beck Exp $ 4*3d006088Sbeck# 5*3d006088Sbeck# Copyright (c) 2020 Bob Beck <beck@openbsd.org> 6*3d006088Sbeck# 7*3d006088Sbeck# Permission to use, copy, modify, and distribute this software for any 8*3d006088Sbeck# purpose with or without fee is hereby granted, provided that the above 9*3d006088Sbeck# copyright notice and this permission notice appear in all copies. 10*3d006088Sbeck# 11*3d006088Sbeck# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 12*3d006088Sbeck# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 13*3d006088Sbeck# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 14*3d006088Sbeck# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 15*3d006088Sbeck# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 16*3d006088Sbeck# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 17*3d006088Sbeck# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 18*3d006088Sbeck# 19*3d006088Sbeck 20*3d006088Sbeckuse JSON; 21*3d006088Sbeck#use Data::Dumper; 22*3d006088Sbeck 23*3d006088Sbeck$json = <>; 24*3d006088Sbeckmy $i = 0; 25*3d006088Sbeck 26*3d006088Sbeck#print Dumper($stuff); 27*3d006088Sbeck 28*3d006088Sbeckmy $stuff = decode_json($json); 29*3d006088Sbeck 30*3d006088Sbeckmy $id; 31*3d006088Sbeckwhile ($id = $stuff->{expects}->[$i]->{id}) { 32*3d006088Sbeck my $ip = $stuff->{expects}->[$i]->{ip}->{expect}; 33*3d006088Sbeck my $dns = $stuff->{expects}->[$i]->{dns}->{expect}; 34*3d006088Sbeck print "$id,$dns,$ip\n"; 35*3d006088Sbeck $i++; 36*3d006088Sbeck} 37*3d006088Sbeck 38*3d006088Sbeck 39