dump_ovsdb.pl

#!/usr/bin/perl 

use v5.14;
use strict;
use warnings;

use JSON::XS;
use File::Slurp;
use Data::Dump;
use Data::Printer;

my @lines = read_file( shift // '/root/ovs/etc/openvswitch/conf.db' ) ;

while( @lines ) {
        say shift(@lines);
        p decode_json shift(@lines);
        next;
        my ($key,$value) = ( shift(@lines),shift(@lines) );
        say $key;
        eval { 
                p decode_json $value 
        };
        if($@) {
                say 'Cannot parse: '.$value;
        }
}