22 lines
393 B
Perl
22 lines
393 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my @machines = ();
|
||
|
|
|
||
|
|
while (<STDIN>) {
|
||
|
|
if (/^\s*Supported machines are:/) {
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
|
||
|
|
s/^\s+//;
|
||
|
|
my @machine = split(/\s+/);
|
||
|
|
next if $machine[0] !~ m/^pc-(i440fx|q35)/;
|
||
|
|
push @machines, $machine[0];
|
||
|
|
}
|
||
|
|
|
||
|
|
die "no QEMU machine types detected from STDIN input" if scalar (@machines) <= 0;
|
||
|
|
|
||
|
|
print join("\n", @machines) or die "$!\n";
|