libvirtをPerlから使用するモジュール Sys::Virtを使ってみました。 Sys::Virtのインストール バージョンが古いですが、CentOS 5.5に収録されているパッケージを使用しました。*1 $ sudo yum install perl-Sys-Virt 起動中の仮想ドメイン情報の取得 以下のようなスクリプトで、仮想ドメインの情報が取得できます。 #!/usr/bin/perl use warnings; use strict; use Sys::Virt; my $addr = 'qemu:///system'; my $vmm = Sys::Virt->new(address => $addr); my @domains = $vmm->list_domains(); foreach my $dom (@domains) { print "----- ", $do