debian/parse-machines.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use JSON;
   7
   8 my $machines = [];
   9
  10 while (<STDIN>) {
  11     if (/^\s*Supported machines are:/) {
  12         next;
  13     }
  14
  15     s/^\s+//;
  16     my @machine = split(/\s+/);
  17     next if $machine[0] !~ m/^pc-(i440fx|q35)-(.+)$/;
  18     push @$machines, {
  19         'id' => $machine[0],
  20         'type' => $1,
  21         'version' => $2,
  22     };
  23 }
  24
  25 die "no QEMU machine types detected from STDIN input" if scalar (@$machines) <= 0;
  26
  27 print to_json($machines, { utf8 => 1, canonical => 1 })
  28     or die "failed to encode detected machines as JSON - $!\n";