mqswig.pl

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

use Scalar::Util qw(looks_like_number);

print "{\"name\":\"com.newrelic.mqswig\",\"protocol_version\":\"1\",\"integration_version\":\"1.0.0\",\"metrics\":[";
while (<>) {
  my @items = split / /, $_;
  print "{\"event_type\":\"IBMMQSample\"";
  foreach my $item(@items) {
    my @key_value = split /[\(\)]/, $item;
    if (@key_value == 2) {
      my ($key, $value) = @key_value;
       print ",\"mq." . lc $key . "\":";
      if (looks_like_number($value)) {
        print "$value";
      } else {
        print "\"$value\"";
      }
    }
  }
  print "},";
}

print "{}],\"inventory\":{},\"events\":[]}\n";