X-Git-Url: http://popeye.lapinbilly.eu/git/?p=vrac.git;a=blobdiff_plain;f=vmstat.pl;h=9a4c21e9965496705adafacfe58a04db7bd58094;hp=37ca6bf98e57752c9c7773f0a6c1dc6251723e19;hb=refs%2Fheads%2Fmaster;hpb=2ef0c434f70b42cfb04f0619f12384dc5ac68e43 diff --git a/vmstat.pl b/vmstat.pl index 37ca6bf..9a4c21e 100755 --- a/vmstat.pl +++ b/vmstat.pl @@ -5,6 +5,7 @@ use warnings; use strict; +use feature 'say'; use XML::LibXML; my ($offset) = @ARGV; @@ -21,8 +22,8 @@ my %dict; 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; @@ -54,7 +55,7 @@ format DIFF_V0V1 = } } - print "\n"; + say ''; sleep(5); }