Make offset tweakable
authorDavid Marec <DavidMarec@users.noreply.github.com>
Sun, 7 May 2023 18:04:17 +0000 (20:04 +0200)
committerDavid Marec <DavidMarec@users.noreply.github.com>
Sun, 7 May 2023 18:04:17 +0000 (20:04 +0200)
vmstat.pl

index 9e7f436614d3d97390ae7c5de633ae2882e57057..79c395a0f913fbe86eee72399a2583cd43a36ec6 100755 (executable)
--- a/vmstat.pl
+++ b/vmstat.pl
@@ -7,11 +7,17 @@ use strict;
 
 use XML::LibXML;
 
+my ($offset) = @ARGV;
+
+if (not defined $offset) {
+       $offset = 10;
+}
+
 my $filename = 'vmstat.xml';
 
 
 my %dict;
-my $offset = 10;
+
 
 
 while (1) {
@@ -31,7 +37,7 @@ while (1) {
                if (exists $dict{$name}) {
                        my $v0=$dict{$name} + $offset;
 
-                       if ($v0 < $val) {
+                       if ($v0 <= $val) {
 format DIFF_V0V1 =
        @<<<<<<<<<<<<<<<<<<<<<< @######## => @########
        $name,$v0,$val