Hi Jim,
Thanks for your kind response. I have installed rpm of perl-sys-virt on
fedora 20 and i want to manage shutdown/start of guest VM by perl script.
That method comes with sys::vrirt:domain, i trried that, but does not work.
same error.
Thnaks
On Mar 26, 2014, at 6:30 PM, Benjamin Fernandis wrote:
> Hi,
>
> I am new with perl and we have virtual machines in our infra. i want to use
> perl sys::virt module to manage them, means to shutdown / start vm by script
> and for that i wrote below small code.
>
> #!/usr/bin/perl
> #
> use s
Hi,
I am new with perl and we have virtual machines in our infra. i want to use
perl sys::virt module to manage them, means to shutdown / start vm by
script and for that i wrote below small code.
#!/usr/bin/perl
#
use strict;
use warnings;
use Sys::Virt;
my $vmm = Sys::Virt->new(uri => "qemu:/
On 2014-03-26 12:36, shawn wilson wrote:
return
sort {
return $pre->{$a} <=> $pre->{$b}
if $pre->{$a} && $pre->{$b};
return -1 if $pre->{$a};
return +1 if $pre->{$b};
return $a cmp $b;
} @$data;
}
Benchmark-alternative:
sort {
$pre->{$
Thanks guys:
# Preceed sort with possible presorted values from an array.
sub _sortpre
{
my ($self, $data, $prevals) = @_;
my $i = 1;
my $pre = (ref($prevals) eq 'ARRAY' and scalar(@$prevals) ?
{map {$_ => $i++} @$prevals} : {}
);
return
sort {
return $pre->{$a} <=> $pre-
