#!/usr/bin/perl

$first=1;

print "{";
print " \"data\":\n\t[\n";

my $filename = '/opt/scripts/bob_monitor.sh';
open(my $fh, '<:encoding(UTF-8)', $filename)
        or die "Could not open file '$filename' $!";

while (my $row = <$fh>) {
        chomp($row);

        for($row) {
                next if $row =~ /^cd|^#|^$|^,/; # skip lines
                ($bobinstance) = m/(bob(\d+))/;

                print ",\n" if not $first;
                $first = 0;

                $return = "\t{ \"{#BOBINSTANCE}\":\"$bobinstance\"}" unless /(^\s*$|^\,$)/;
                print $return;
        }
}

print "\t]\n";
print "}\n";