my $pciregex = "([a-f0-9]{4}):([a-f0-9]{2}):([a-f0-9]{2})\.([a-f0-9])";
sub lspci {
+ my ($filter) = @_;
my $devices = {};
dir_glob_foreach("$pcisysfs/devices", $pciregex, sub {
my (undef, undef, $bus, $slot, $function) = @_;
my $id = "$bus:$slot";
+ return if defined($filter) && $id ne $filter;
my $res = { id => $id, function => $function};
push @{$devices->{$id}}, $res;
});