もう一年以上更新してなかったのか… virt-cloneした後にネットワーク設定を修正するのが面倒くさいので、スクリプト一発でなんとかしたくて書いてみた。 #!/usr/bin/perl use strict; use warnings; use Sys::Guestfs; use Sys::Virt; use Data::Section::Simple qw(get_data_section); die "Usage: $0 domain ip_addr\n" if @ARGV != 2; my ($domain, $ip) = @ARGV; my $vmm_addr = 'qemu:///system'; my $vmm = Sys::Virt->new(address => $vmm_addr); grep { $_->get_name eq $domain } $vmm->list