projects
/
vrac.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use builtin say
[vrac.git]
/
vmstat.pl
diff --git
a/vmstat.pl
b/vmstat.pl
index 37ca6bf98e57752c9c7773f0a6c1dc6251723e19..9a4c21e9965496705adafacfe58a04db7bd58094 100755
(executable)
--- a/
vmstat.pl
+++ b/
vmstat.pl
@@
-5,6
+5,7
@@
use warnings;
use strict;
use warnings;
use strict;
+use feature 'say';
use XML::LibXML;
my ($offset) = @ARGV;
use XML::LibXML;
my ($offset) = @ARGV;
@@
-21,8
+22,8
@@
my %dict;
while (1) {
while (1) {
-
print scalar localtime() . "\n"
;
-
print "------------------------\n
";
+
say scalar localtime()
;
+
say "------------------------
";
system("/usr/bin/vmstat -z --libxo xml >$filename");
my $doc = XML::LibXML->load_xml(location => $filename);
my $c = 0;
system("/usr/bin/vmstat -z --libxo xml >$filename");
my $doc = XML::LibXML->load_xml(location => $filename);
my $c = 0;
@@
-54,7
+55,7
@@
format DIFF_V0V1 =
}
}
}
}
-
print "\n"
;
+
say ''
;
sleep(5);
}
sleep(5);
}