8 open(my $in, '<', '/dev/shm/mac-ip-vlan');
10 print $out $_ if $out;
12 my ( $mac, $ip, $vlan ) = split(/\s/,$_);
13 $mac2ip_vlan->{$mac} = [ $ip, $vlan ];
16 open(my $gnt, '-|', qq{gnt-instance list --no-header --separator=' ' -o name,nic.macs,nic.bridges,tags});
19 my ( $name,$macs,$bridges,$tags ) = split(/\s/,$_,4);
20 my @macs = split(/,/,$macs);
21 my @br = split(/,/,$bridges);
22 for my $i ( 0 .. $#macs ) {
24 print "$name $mac $br[$i] ";
25 if ( exists $mac2ip_vlan->{$mac} ) {
26 print join(' ', @{ $mac2ip_vlan->{$mac} });
30 $tags =~ s/ganeti:watcher[^,]*,*//g;
31 $tags =~ s/ganetimgr://g;