3 # requires textproc/p5-XML-LibXML
11 my $filename = 'vmstatm.xml';
16 if (not defined $offset) {
21 say scalar localtime();
22 say "------------------------";
23 system("/usr/bin/vmstat -m --libxo xml >$filename");
24 my $doc = XML::LibXML->load_xml(location => $filename);
25 foreach my $id ( $doc->findnodes('//memory')) {
26 my $name=$id->findvalue('type');
27 my $used=$id->findvalue('memory-use');
28 if (exists $dict{$name}) {
29 my $v0=$dict{$name} + $offset;
33 @<<<<<<<<<<<<<<<<<<<<<< @######## => @########
34 $name,$dict{$name},$used