One Hat Cyber Team
Your IP :
216.73.216.115
Server IP :
194.44.31.54
Server :
Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64
Server Software :
Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k
PHP Version :
5.6.40
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Sys-Virt
/
examples
/
Edit File:
dom-stats.pl
#!/usr/bin/perl use strict; use warnings; use Sys::Virt; use Sys::Virt::Domain; my $uri = @ARGV ? shift @ARGV : undef; my $c = Sys::Virt->new(uri => $uri); my @doms; foreach my $name (@ARGV) { push @doms, $c->get_domain_by_name($name); } my @stats = $c->get_all_domain_stats(Sys::Virt::Domain::STATS_STATE, \@doms, Sys::Virt::Domain::GET_ALL_STATS_ENFORCE_STATS); foreach my $stats (@stats) { print "Guest ", $stats->{'dom'}->get_name(), "\n"; print " State: ", $stats->{'data'}->{'state.state'}, "\n"; }
Simpan