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} =
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-{$a}
?
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 =
On Mar 26, 2014, at 6:30 PM, Benjamin Fernandis benjo11...@gmail.com 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.
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
