Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mageia > 7 > armv7hl > media > core-release > by-pkgid > 56df6aeb16f0196736ea2463589972cc > files > 50

perl-Sys-Virt-5.2.0-1.mga7.armv7hl.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

#!/usr/bin/perl

use Sys::Virt;

my $conn = Sys::Virt->new();

my @nodelist = $conn->list_all_node_devices();
foreach my $dev (@nodelist){
    my $parent = $dev->get_parent();
    printf "%s: < %s\n", $dev->get_name(), $parent;
}