Difference between revisions of "Human readable user beancounters"

From OpenVZ Virtuozzo Containers Wiki
Jump to: navigation, search
(use vzubc)
 
(2 intermediate revisions by 2 users not shown)
Line 1: Line 1:
{{UBC toc}}
+
{{Note|This article is obsoleted, please use {{Man|vzubc|8}} that comes with vzctl}}
  
 
For newbies to openvz it is fairly difficult to understand the meaning of the numbers in '''/proc/user_beancounters''' file. Calculating the values to something understandable for human brain everytime you look at these statistics is much work. I have written a perl script which reformats the output to human-readable values in kbyte and mbyte.
 
For newbies to openvz it is fairly difficult to understand the meaning of the numbers in '''/proc/user_beancounters''' file. Calculating the values to something understandable for human brain everytime you look at these statistics is much work. I have written a perl script which reformats the output to human-readable values in kbyte and mbyte.
Line 307: Line 307:
 
Quick (and dirty) patch to only display the information of one container (first argument of the script).
 
Quick (and dirty) patch to only display the information of one container (first argument of the script).
 
Usage:
 
Usage:
<pre>$ beacounters.pl VEID</pre>
+
<pre>$ beancounters.pl VEID</pre>
  
 
<source lang=diff>
 
<source lang=diff>
--- beacounters.pl 2011-05-06 01:06:58.000000000 -0300
+
--- beancounters.pl 2011-05-06 01:06:58.000000000 -0300
+++ beacounters-container.pl 2011-05-06 12:43:09.000000000 -0300
+
+++ beancounters-container.pl 2011-05-06 12:43:09.000000000 -0300
 
@@ -11,8 +11,7 @@
 
@@ -11,8 +11,7 @@
 
  # Christian Anton <mail |_at_| christiananton.de> 2008-09-18
 
  # Christian Anton <mail |_at_| christiananton.de> 2008-09-18
Line 322: Line 322:
 
    
 
    
 
  sub check_maxulong {
 
  sub check_maxulong {
 +
</source>
 +
 +
 +
 +
 +
Here is another modified version vzcomits.pl with some caculation addons and consistency checks.
 +
Also every possible value will be stored stored in hashes which makes it easy to add some more calculations.
 +
 +
 +
Additional Output:
 +
<pre>
 +
Total RAM: 4154634240
 +
Total SWAP: 8589926400
 +
 +
lowmem current utilization: 2.61%
 +
lowmem maximum utilization: 6.88%
 +
lowmem barrier: 54.80%
 +
lowmem commitment: 105.00%
 +
lowmem limit: 1584.87mb
 +
 +
oomguarpages utilization can be between 32.60% and 66.30%
 +
oomguarpages current utilization: 14.84%
 +
oomguarpages commitment (80-100%): 36.12%
 +
 +
privvmpages of a single container should not be higher than: 2377.30mb
 +
allocated memory (privvmpages) current utilization: 25.39%
 +
allocation (privvmpages) limit: 126.77%
 +
allocation memory guarantee (vmguarpages <100%): 39.43%
 +
 +
########################################################################
 +
</pre>
 +
 +
 +
 +
 +
<source lang=perl>
 +
#!/usr/bin/perl
 +
 +
##############################################################################
 +
# vzcomits.pl
 +
#
 +
# this script reads /proc/user_beancounters on openvz HNs and VEs and displays
 +
# the values in human-readable format (megabytes/kilobytes).
 +
#
 +
# The script can be distributed freely for everybody who finds it usable.
 +
#
 +
# Christian Anton <mail |_at_| christiananton.de> 2008-09-18
 +
#
 +
# modified by PVCE Andreas Neuhold <nean[at]hd-recording[dot]at> for additional advanced calculations
 +
#
 +
 +
my %beancounters;
 +
my %sumbeancounters;
 +
my %calc;
 +
 +
my $ram=$1 if (qx(free -b) =~ /.*Mem:\s*(\d+)\s*/);
 +
my $swap=$1 if (qx(free -b) =~ /.*Swap:\s*(\d+)\s*/);
 +
 +
 +
open(BEANS,"/proc/user_beancounters");
 +
chomp ($arch = `uname -m`);
 +
 +
sub check_maxulong {
 +
my $number = shift;
 +
 +
if ($arch eq "x86_64") {
 +
if ($number == 9223372036854775807) {
 +
return 1;
 +
} else {
 +
return undef;
 +
}
 +
} else {
 +
if ($number == 2147483647) {
 +
return 1;
 +
} else {
 +
return undef;
 +
}
 +
}
 +
}
 +
 +
sub recalc_bytes {
 +
my $bytes = shift;
 +
 +
if (defined(&check_maxulong($bytes))) { return "unlimited"; }
 +
 +
my $kbytes = $bytes / 1024;
 +
my $ret;
 +
 +
# if over 1mb, show mb values
 +
if ($kbytes > 1024) {
 +
my $mbytes = $kbytes / 1024;
 +
$ret = sprintf("%.2f", $mbytes) . " mb";
 +
return $ret;
 +
} else {
 +
$ret = sprintf("%.2f", $kbytes) . " kb";
 +
return $ret;
 +
}
 +
}
 +
 +
sub recalc_pages {
 +
my $pages = shift;
 +
 +
if ($pages == 0) { return "0"; }
 +
if (defined(&check_maxulong($pages))) { return "unlimited"; }
 +
 +
my $kbytes = $pages * 4;
 +
my $ret;
 +
 +
if ($kbytes > 1024) {
 +
my $mbytes = $kbytes / 1024;
 +
$ret = sprintf("%.2f", $mbytes) . " mb";
 +
return $ret;
 +
} else {
 +
$ret = sprintf("%.2f", $kbytes) . " kb";
 +
return $ret;
 +
}
 +
}
 +
 +
sub recalc_nothing {
 +
my $number = shift;
 +
if (defined(&check_maxulong($number))) { return "unlimited"; }
 +
 +
return $number;
 +
}
 +
 +
sub printline {
 +
my $mode = shift; # 0=normal, 1=bytes, 2=pages
 +
my $ident = shift;
 +
my $held = shift;
 +
my $maxheld = shift;
 +
my $barrier = shift;
 +
my $limit = shift;
 +
my $failcnt = shift;
 +
 +
if ($mode == 0) {
 +
printf ("%-15s",$ident);
 +
printf ("%18s",&recalc_nothing($held));
 +
printf ("%21s",&recalc_nothing($maxheld));
 +
printf ("%21s",&recalc_nothing($barrier));
 +
printf ("%21s",&recalc_nothing($limit));
 +
printf ("%21s",$failcnt);
 +
print "\n";
 +
} elsif ($mode == 1) {
 +
printf ("%-15s",$ident);
 +
printf ("%18s",&recalc_bytes($held));
 +
printf ("%21s",&recalc_bytes($maxheld));
 +
printf ("%21s",&recalc_bytes($barrier));
 +
printf ("%21s",&recalc_bytes($limit));
 +
printf ("%21s",$failcnt);
 +
print "\n";
 +
} elsif ($mode == 2) {
 +
printf ("%-15s",$ident);
 +
printf ("%18s",&recalc_pages($held));
 +
printf ("%21s",&recalc_pages($maxheld));
 +
printf ("%21s",&recalc_pages($barrier));
 +
printf ("%21s",&recalc_pages($limit));
 +
printf ("%21s",$failcnt);
 +
print "\n";
 +
}
 +
}
 +
 +
sub work_line {
 +
my $cid = shift;
 +
my $line = shift;
 +
my $ident = $line;
 +
my $held = $line;
 +
my $maxheld = $line;
 +
my $barrier = $line;
 +
my $limit = $line;
 +
my $failcnt = $line;
 +
 +
 +
$ident =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$1/;
 +
$held =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$2/;
 +
$maxheld =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$3/;
 +
$barrier =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$4/;
 +
$limit =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$5/;
 +
$failcnt =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$6/;
 +
 +
# save everything in hashes
 +
$beancounters{$cid}{$ident}{"held"}=$held;
 +
$beancounters{$cid}{$ident}{"maxheld"}=$maxheld;
 +
$beancounters{$cid}{$ident}{"bar"}=$barrier;
 +
$beancounters{$cid}{$ident}{"lim"}=$limit;
 +
$beancounters{$cid}{$ident}{"failcnt"}=$failcnt;
 +
 +
# 0=normal, 1=bytes, 2=pages
 +
if ($ident eq "dummy") {
 +
# do nothing, skip this line
 +
} elsif ($ident =~ /pages/) {
 +
&printline(2,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
 +
} elsif ($ident =~ /^num/) {
 +
&printline(0,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
 +
} else {
 +
&printline(1,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
 +
}
 +
 +
}
 +
 +
sub print_header {
 +
my $cid = shift;
 +
 +
print "\n########################################################################\n";
 +
print "CID $cid\n";
 +
print "resource                    held              maxheld              barrier                limit              failcnt\n";
 +
}
 +
 +
# now eat your beans baby
 +
while (<BEANS>) {
 +
chomp($line = $_);
 +
 +
# skip processing of headline
 +
if ($line =~ /^\s+uid/) {
 +
# do nothing, skip this
 +
} elsif ($line =~ /^Ver/) {
 +
# do nothing, skip this
 +
} elsif ($line =~ /^\s+\d+:\s+kmem/) {
 +
$cid = $line;
 +
$line =~ s/^(\s+)(\d+):/$1/;
 +
$cid =~ s/^(\s+)(\d+):.*$/$2/;
 +
 +
&print_header($cid);
 +
&work_line($cid,$line);
 +
 +
} else {
 +
&work_line($cid,$line);
 +
 +
}
 +
}
 +
 +
close(BEANS);
 +
 +
 +
 +
print "########################################################################\n\n";
 +
print "Total RAM: $ram \nTotal SWAP: $swap\n\n";
 +
 +
# summarize all values of all containers
 +
foreach my $cid (keys %beancounters) {
 +
if ($cid > 0 ) {
 +
#print "\n$cid :\n";
 +
foreach my $ident (keys %{$beancounters{$cid}}) {
 +
foreach my $stat (keys %{$beancounters{$cid}{$ident}}) {
 +
# summarize all values of all containers
 +
$sumbeancounters{$ident}{$stat} += $beancounters{$cid}{$ident}{$stat};
 +
 +
# summarize all socket buffers
 +
$sumbeancounters{"buf"}{$stat} += $beancounters{$cid}{$ident}{$stat} if ($ident =~ /.*buf/i);
 +
}
 +
}
 +
# checks
 +
print "WARNING! CID $cid: numiptent should not be greater than 200-300!\n vzvtl set --numiptent 200:200\n" if ($beancounters{$cid}{"numiptent"}{"lim"} > 200);
 +
print "WARNING! CID $cid: numsiginfo hould not be greater than 1024!\n vzvtl set --numsiginfo 1024:1024\n" if ($beancounters{$cid}{"numsiginfo"}{"lim"} > 1024);
 +
print "WARNING! CID $cid: kmemsize barrier to small or numproc to high!\n $beancounters{$cid}{'kmemsize'}{'bar'} > (40960*$beancounters{$cid}{'numproc'}{'held'}+$beancounters{$cid}{'dcachesize'}{'lim'})\n" if ($beancounters{$cid}{"kmemsize"}{"bar"} < (40960*$beancounters{$cid}{"numproc"}{"held"}+$beancounters{$cid}{"dcachesize"}{"lim"}));
 +
print "WARNING! CID $cid: tcpsndbuf to small or numtcpsock to high!\n($beancounters{$cid}{'tcpsndbuf'}{'lim'}-$beancounters{$cid}{'tcpsndbuf'}{'bar'}) > (2560*$beancounters{$cid}{'numtcpsock'}{'maxheld'})\n" if (($beancounters{$cid}{"tcpsndbuf"}{"lim"}-$beancounters{$cid}{"tcpsndbuf"}{"bar"}) < (2560*$beancounters{$cid}{"numtcpsock"}{"maxheld"}));
 +
print "WARNING! CID $cid: othersockbuf to small or numothersock to high!\n ($beancounters{$cid}{'othersockbuf'}{'lim'}-$beancounters{$cid}{'othersockbuf'}{'bar'}) > (2560*$beancounters{$cid}{'numothersock'}{'maxheld'})\n" if (($beancounters{$cid}{"othersockbuf"}{"lim"}-$beancounters{$cid}{"othersockbuf"}{"bar"}) < (2560*$beancounters{$cid}{"numothersock"}{"maxheld"}));
 +
 +
}
 +
 +
 +
}
 +
#print "########################################################################\n\n";
 +
 +
 +
$calc{"lowmem"}{"util"}=(($sumbeancounters{"kmemsize"}{"held"}+$sumbeancounters{"buf"}{"held"})/($ram*0.4))*100;
 +
$calc{"lowmem"}{"maxutil"}=(($sumbeancounters{"kmemsize"}{"maxheld"}+$sumbeancounters{"buf"}{"maxheld"})/($ram*0.4))*100;
 +
$calc{"lowmem"}{"bar"}=(($sumbeancounters{"kmemsize"}{"bar"}+$sumbeancounters{"buf"}{"bar"})/($ram*0.4))*100;
 +
$calc{"lowmem"}{"comit"}=(($sumbeancounters{"kmemsize"}{"lim"}+$sumbeancounters{"buf"}{"lim"})/($ram*0.4))*100;
 +
$calc{"lowmem"}{"limit"}=(($ram*0.4)/(1024*1024));
 +
 +
printf("lowmem current utilization: %.2f%\n", $calc{"lowmem"}{"util"});
 +
printf("lowmem maximum utilization: %.2f%\n", $calc{"lowmem"}{"maxutil"});
 +
printf("lowmem barrier: %.2f%\n", $calc{"lowmem"}{"bar"});
 +
printf("lowmem commitment: %.2f%\n", $calc{"lowmem"}{"comit"});
 +
printf("lowmem limit: %.2fmb\n", $calc{'lowmem'}{'limit'});
 +
 +
 +
 +
$calc{"oomguarpages"}{"min"}=(($ram/($ram+$swap))*100);
 +
$calc{"oomguarpages"}{"max"}=((($ram+($swap*0.5))/($ram+$swap))*100);
 +
$calc{"oomguarpages"}{"util"}=((($sumbeancounters{"oomguarpages"}{"held"}*4096)+$sumbeancounters{"buf"}{"held"})/($ram+$swap))*100;
 +
$calc{"oomguarpages"}{"comit"}=((($sumbeancounters{"oomguarpages"}{"bar"}*4096)+$sumbeancounters{"buf"}{"lim"})/($ram+$swap))*100;
 +
 +
printf "\noomguarpages utilization can be between %.2f% and %.2f%\n", $calc{'oomguarpages'}{'min'}, $calc{'oomguarpages'}{'max'};
 +
printf("oomguarpages current utilization: %.2f%\n", $calc{"oomguarpages"}{"util"});
 +
printf("oomguarpages commitment (80-100%): %.2f%\n", $calc{"oomguarpages"}{"comit"});
 +
 +
 +
 +
$calc{"privvmpages"}{"min"}=(($ram/($ram+$swap))*100);
 +
$calc{"privvmpages"}{"max"}=($ram*0.6)/(1024*1024);
 +
$calc{"privvmpages"}{"util"}=((($sumbeancounters{"privvmpages"}{"held"}*4096)+$sumbeancounters{"buf"}{"held"})/($ram+$swap))*100;
 +
$calc{"vmguarpages"}{"comit"}=((($sumbeancounters{"vmguarpages"}{"bar"}*4096)+$sumbeancounters{"buf"}{"lim"})/($ram+$swap))*100;
 +
$calc{"privvmpages"}{"lim"}=((($sumbeancounters{"privvmpages"}{"lim"}*4096)+$sumbeancounters{"buf"}{"lim"})/($ram+$swap))*100;
 +
 +
printf("\nprivvmpages of a single container should not be higher than: %.2fmb\n", $calc{'privvmpages'}{'max'});
 +
printf("allocated memory (privvmpages) current utilization: %.2f%\n", $calc{"privvmpages"}{"util"});
 +
printf("allocation (privvmpages) limit: %.2f%\n", $calc{"privvmpages"}{"lim"});
 +
printf("allocation memory guarantee (vmguarpages <100%): %.2f%\n", $calc{"vmguarpages"}{"comit"});
 +
 +
# numiptent 200-300
 +
 +
 +
print "\n########################################################################\n\n";
 +
 +
 +
#EOF
 
</source>
 
</source>

Latest revision as of 19:14, 22 April 2013

Yellowpin.svg Note: This article is obsoleted, please use vzubc(8) that comes with vzctl

For newbies to openvz it is fairly difficult to understand the meaning of the numbers in /proc/user_beancounters file. Calculating the values to something understandable for human brain everytime you look at these statistics is much work. I have written a perl script which reformats the output to human-readable values in kbyte and mbyte.

Just be sure you have Perl installed on your HN/VE, copy this script to somewhere on your machine, give it executable rights and start it. The output will be like this:

BEANS FOR UID 254
resource                     held              maxheld              barrier                limit              failcnt
kmemsize                 15.14 mb             18.72 mb            150.30 mb            167.00 mb                    0
lockedpages                     0                    0             16.00 mb             16.00 mb                    0
privvmpages             433.79 mb            544.63 mb           2929.69 mb           3222.66 mb                    0
shmpages                 11.58 mb             11.64 mb            512.00 mb            512.00 mb                    0
numproc                        84                  101                  500                  500                    0
physpages               278.24 mb            395.75 mb                    0            unlimited                    0
vmguarpages                     0                    0            244.14 mb            unlimited                    0
oomguarpages            279.66 mb            396.98 mb            122.07 mb            unlimited                    0
numtcpsock                     25                   53                  500                  500                    0
numflock                       18                   22                  200                  220                    0
numpty                          4                    4                   64                   64                    0
numsiginfo                      0                   11                  512                  512                    0
tcpsndbuf               569.75 kb            679.25 kb              5.12 mb             10.00 mb                    0
tcprcvbuf               400.00 kb              1.28 mb              5.12 mb             10.00 mb                    0
othersockbuf            213.00 kb            284.25 kb              1.43 mb              3.88 mb                    0
dgramrcvbuf               0.00 kb              8.25 kb            256.00 kb            256.00 kb                    0
numothersock                  155                  175                  500                  500                    0
dcachesize              619.68 kb            656.68 kb              4.00 mb              4.12 mb                    0
numfile                      2008                 2397                 9312                 9312                    0
numiptent                      10                   10                  128                  128                    0

The script is the following, just copy and paste:

#!/usr/bin/perl

###############################################################################
# vzstats.pl
#
# this script reads /proc/user_beancounters on openvz HNs and VEs and displays
# the values in human-readable format (megabytes/kilobytes).
#
# The script can be distributed freely for everybody who finds it usable.
#
# Christian Anton <mail |_at_| christiananton.de> 2008-09-18



open(BEANS,"/proc/user_beancounters");
chomp ($arch = `uname -m`);

sub check_maxulong {
	my $number = shift;

	if ($arch eq "x86_64") {
		if ($number == 9223372036854775807) {
			return 1;
		} else {
			return undef;
		}
	} else {
		if ($number == 2147483647) {
			return 1;
		} else {
			return undef;
		}
	}
}

sub recalc_bytes {
	my $bytes = shift;

	if (defined(&check_maxulong($bytes))) { return "unlimited"; }

	my $kbytes = $bytes / 1024;
	my $ret;
	
	# if over 1mb, show mb values
	if ($kbytes > 1024) {
		my $mbytes = $kbytes / 1024;
		$ret = sprintf("%.2f", $mbytes) . " mb";
		return $ret;
	} else {
		$ret = sprintf("%.2f", $kbytes) . " kb";
		return $ret;
	}
}

sub recalc_pages {
	my $pages = shift;

	if ($pages == 0) { return "0"; }
	if (defined(&check_maxulong($pages))) { return "unlimited"; }

	my $kbytes = $pages * 4;
	my $ret;

	if ($kbytes > 1024) {
		my $mbytes = $kbytes / 1024;
		$ret = sprintf("%.2f", $mbytes) . " mb";
		return $ret;
	} else {
		$ret = sprintf("%.2f", $kbytes) . " kb";
		return $ret;
	}
}

sub recalc_nothing {
	my $number = shift;
	if (defined(&check_maxulong($number))) { return "unlimited"; }

	return $number;
}

sub printline {
	my $mode = shift; # 0=normal, 1=bytes, 2=pages
	my $ident = shift;
	my $held = shift;
	my $maxheld = shift;
	my $barrier = shift;
	my $limit = shift;
	my $failcnt = shift;

	if ($mode == 0) {
		printf ("%-15s",$ident);
		printf ("%18s",&recalc_nothing($held));
		printf ("%21s",&recalc_nothing($maxheld));
		printf ("%21s",&recalc_nothing($barrier));
		printf ("%21s",&recalc_nothing($limit));
		printf ("%21s",$failcnt);
		print "\n";
	} elsif ($mode == 1) {
		printf ("%-15s",$ident);
		printf ("%18s",&recalc_bytes($held));
		printf ("%21s",&recalc_bytes($maxheld));
		printf ("%21s",&recalc_bytes($barrier));
		printf ("%21s",&recalc_bytes($limit));
		printf ("%21s",$failcnt);
		print "\n";
	} elsif ($mode == 2) {
		printf ("%-15s",$ident);
		printf ("%18s",&recalc_pages($held));
		printf ("%21s",&recalc_pages($maxheld));
		printf ("%21s",&recalc_pages($barrier));
		printf ("%21s",&recalc_pages($limit));
		printf ("%21s",$failcnt);
		print "\n";
	}
}

sub work_line {
	my $line = shift;
	my $ident = $line;
	my $held = $line;
	my $maxheld = $line;
	my $barrier = $line;
	my $limit = $line;
	my $failcnt = $line;



	$ident =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$1/;
	$held =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$2/;
	$maxheld =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$3/;
	$barrier =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$4/;
	$limit =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$5/;
	$failcnt =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$6/;

	# 0=normal, 1=bytes, 2=pages
	if ($ident eq "dummy") {
		# do nothing, skip this line
	} elsif ($ident =~ /pages/) {
		&printline(2,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
	} elsif ($ident =~ /^num/) {
		&printline(0,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
	} else {
		&printline(1,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
	}

}

sub print_header {
	my $uid = shift;

	print "#####################################################################################################################\n";
	print "BEANS FOR UID $uid\n";
	print "resource                     held              maxheld              barrier                limit              failcnt\n";
}

# now eat your beans baby
while (<BEANS>) {
	chomp($line = $_);

	# skip processing of headline
	if ($line =~ /^\s+uid/) {
		# do nothing, skip this
	} elsif ($line =~ /^Ver/) {
		# do nothing, skip this
	} elsif ($line =~ /^\s+\d+:\s+kmem/) {
		$uid = $line;
		$line =~ s/^(\s+)(\d+):/$1/;
		$uid =~ s/^(\s+)(\d+):.*$/$2/;
		&print_header($uid);
		&work_line($line);
	} else {
		&work_line($line);
	}
}

close(BEANS);

Here's a quick patch which adds on VE hostname lookups. It depends on vzlist being in the path but won't break if it isn't.

*** beanCounters.pl-orig        Sun Nov  9 14:08:56 2008
--- beanCounters.pl     Sun Nov  9 14:08:21 2008
***************
*** 9,14 ****
--- 9,17 ----
  # The script can be distributed freely for everybody who finds it usable.
  #
  # Christian Anton <mail |_at_| christiananton.de> 2008-09-18
+ #
+ # David Osborn <ossdev -at- daoCon.com> 2008-11-09
+ #     Added VE name to output
   
   
   
***************
*** 147,158 ****
   
  sub print_header {
        my $uid = shift;
   
        print "#####################################################################################################################\n";
!       print "BEANS FOR UID $uid\n";
        print "resource                     held              maxheld              barrier               limit              failcnt\n";
  }
   
  # now eat your beans baby
  while (<BEANS>) {
        chomp($line = $_);
--- 150,193 ----
   
  sub print_header {
        my $uid = shift;
+       my $hostname = shift;
   
        print "#####################################################################################################################\n";
!       print "BEANS FOR UID $uid ($hostname)\n";
        print "resource                     held              maxheld              barrier                limit              failcnt\n";
  }
   
+ sub get_hostname {
+       my $uid = shift;
+       my @vzout;
+ 
+       # already retrieved list
+       if (defined %hostnames) {
+               if (defined $hostnames{$uid}) {
+                       return $hostnames{$uid};
+               } else {
+                       return 'not found';
+               }
+       # try to retrieve the list
+       } elsif ( eval(@vzout = `vzlist -H -o veid,hostname`) ) {
+               $hostnames{0} = 'HN';
+               while (@vzout) { 
+                       my $line = shift @vzout;
+                       my ($tuid,$hostname) = $line =~ /^\s+(\d+)\s+(\S+)/;
+                       $hostnames{$tuid} = $hostname;
+               }
+               return $hostnames{$uid};
+       } else {
+               # something's wrong
+               return 'unknown';
+       }
+ 
+ }
+ 
+ 
+ # Hash used to store uid to hostname lookups
+ my %hostnames;
+ 
  # now eat your beans baby
  while (<BEANS>) {
        chomp($line = $_);
***************
*** 166,172 ****
                $uid = $line;
                $line =~ s/^(\s+)(\d+):/$1/;
                $uid =~ s/^(\s+)(\d+):.*$/$2/;
!               &print_header($uid);
                &work_line($line);
        } else {
                &work_line($line);
--- 201,207 ----
                $uid = $line;
                $line =~ s/^(\s+)(\d+):/$1/;
                $uid =~ s/^(\s+)(\d+):.*$/$2/;
!               &print_header($uid, get_hostname($uid));
                &work_line($line);
        } else {
                &work_line($line);

Quick (and dirty) patch to only display the information of one container (first argument of the script). Usage:

$ beancounters.pl VEID
--- beancounters.pl	2011-05-06 01:06:58.000000000 -0300
+++ beancounters-container.pl	2011-05-06 12:43:09.000000000 -0300
@@ -11,8 +11,7 @@
 # Christian Anton <mail |_at_| christiananton.de> 2008-09-18
  
  
- 
-open(BEANS,"/proc/user_beancounters");
+open(BEANS,"cat /proc/user_beancounters | grep \" ${ARGV[0]}:\" -A 23  |");
 chomp ($arch = `uname -m`);
  
 sub check_maxulong {



Here is another modified version vzcomits.pl with some caculation addons and consistency checks. Also every possible value will be stored stored in hashes which makes it easy to add some more calculations.


Additional Output:

Total RAM: 4154634240 
Total SWAP: 8589926400

lowmem current utilization: 2.61%
lowmem maximum utilization: 6.88%
lowmem barrier: 54.80%
lowmem commitment: 105.00%
lowmem limit: 1584.87mb

oomguarpages utilization can be between 32.60% and 66.30%
oomguarpages current utilization: 14.84%
oomguarpages commitment (80-100%): 36.12%

privvmpages of a single container should not be higher than: 2377.30mb
allocated memory (privvmpages) current utilization: 25.39%
allocation (privvmpages) limit: 126.77%
allocation memory guarantee (vmguarpages <100%): 39.43%

########################################################################



#!/usr/bin/perl

##############################################################################
# vzcomits.pl
#
# this script reads /proc/user_beancounters on openvz HNs and VEs and displays
# the values in human-readable format (megabytes/kilobytes).
#
# The script can be distributed freely for everybody who finds it usable.
#
# Christian Anton <mail |_at_| christiananton.de> 2008-09-18
#
# modified by PVCE Andreas Neuhold <nean[at]hd-recording[dot]at> for additional advanced calculations 
#
 
my %beancounters;
my %sumbeancounters;
my %calc;

my $ram=$1 if (qx(free -b) =~ /.*Mem:\s*(\d+)\s*/);
my $swap=$1 if (qx(free -b) =~ /.*Swap:\s*(\d+)\s*/);


open(BEANS,"/proc/user_beancounters");
chomp ($arch = `uname -m`);
 
sub check_maxulong {
	my $number = shift;
 
	if ($arch eq "x86_64") {
		if ($number == 9223372036854775807) {
			return 1;
		} else {
			return undef;
		}
	} else {
		if ($number == 2147483647) {
			return 1;
		} else {
			return undef;
		}
	}
}
 
sub recalc_bytes {
	my $bytes = shift;
 
	if (defined(&check_maxulong($bytes))) { return "unlimited"; }
 
	my $kbytes = $bytes / 1024;
	my $ret;
 
	# if over 1mb, show mb values
	if ($kbytes > 1024) {
		my $mbytes = $kbytes / 1024;
		$ret = sprintf("%.2f", $mbytes) . " mb";
		return $ret;
	} else {
		$ret = sprintf("%.2f", $kbytes) . " kb";
		return $ret;
	}
}
 
sub recalc_pages {
	my $pages = shift;
 
	if ($pages == 0) { return "0"; }
	if (defined(&check_maxulong($pages))) { return "unlimited"; }
 
	my $kbytes = $pages * 4;
	my $ret;
 
	if ($kbytes > 1024) {
		my $mbytes = $kbytes / 1024;
		$ret = sprintf("%.2f", $mbytes) . " mb";
		return $ret;
	} else {
		$ret = sprintf("%.2f", $kbytes) . " kb";
		return $ret;
	}
}
 
sub recalc_nothing {
	my $number = shift;
	if (defined(&check_maxulong($number))) { return "unlimited"; }
 
	return $number;
}
 
sub printline {
	my $mode = shift; # 0=normal, 1=bytes, 2=pages
	my $ident = shift;
	my $held = shift;
	my $maxheld = shift;
	my $barrier = shift;
	my $limit = shift;
	my $failcnt = shift;
 
	if ($mode == 0) {
		printf ("%-15s",$ident);
		printf ("%18s",&recalc_nothing($held));
		printf ("%21s",&recalc_nothing($maxheld));
		printf ("%21s",&recalc_nothing($barrier));
		printf ("%21s",&recalc_nothing($limit));
		printf ("%21s",$failcnt);
		print "\n";
	} elsif ($mode == 1) {
		printf ("%-15s",$ident);
		printf ("%18s",&recalc_bytes($held));
		printf ("%21s",&recalc_bytes($maxheld));
		printf ("%21s",&recalc_bytes($barrier));
		printf ("%21s",&recalc_bytes($limit));
		printf ("%21s",$failcnt);
		print "\n";
	} elsif ($mode == 2) {
		printf ("%-15s",$ident);
		printf ("%18s",&recalc_pages($held));
		printf ("%21s",&recalc_pages($maxheld));
		printf ("%21s",&recalc_pages($barrier));
		printf ("%21s",&recalc_pages($limit));
		printf ("%21s",$failcnt);
		print "\n";
	}
}
 
sub work_line {
	my $cid = shift;
	my $line = shift;
	my $ident = $line;
	my $held = $line;
	my $maxheld = $line;
	my $barrier = $line;
	my $limit = $line;
	my $failcnt = $line;


	$ident =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$1/;
	$held =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$2/;
	$maxheld =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$3/;
	$barrier =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$4/;
	$limit =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$5/;
	$failcnt =~ s/^\s+(\w+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)$/$6/;

	# save everything in hashes
	$beancounters{$cid}{$ident}{"held"}=$held;
	$beancounters{$cid}{$ident}{"maxheld"}=$maxheld;
	$beancounters{$cid}{$ident}{"bar"}=$barrier;
	$beancounters{$cid}{$ident}{"lim"}=$limit;
	$beancounters{$cid}{$ident}{"failcnt"}=$failcnt;

	# 0=normal, 1=bytes, 2=pages
	if ($ident eq "dummy") {
		# do nothing, skip this line
	} elsif ($ident =~ /pages/) {
		&printline(2,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
	} elsif ($ident =~ /^num/) {
		&printline(0,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
	} else {
		&printline(1,$ident,$held,$maxheld,$barrier,$limit,$failcnt);
	}
 
}
 
sub print_header {
	my $cid = shift;
 
	print "\n########################################################################\n";
	print "CID $cid\n";
	print "resource                     held              maxheld              barrier                limit              failcnt\n";
}
 
# now eat your beans baby
while (<BEANS>) {
	chomp($line = $_);
 
	# skip processing of headline
	if ($line =~ /^\s+uid/) {
		# do nothing, skip this
	} elsif ($line =~ /^Ver/) {
		# do nothing, skip this
	} elsif ($line =~ /^\s+\d+:\s+kmem/) {
		$cid = $line;
		$line =~ s/^(\s+)(\d+):/$1/;
		$cid =~ s/^(\s+)(\d+):.*$/$2/;
		
		&print_header($cid);
		&work_line($cid,$line);
		
	} else {
		&work_line($cid,$line);
		
	}
}

close(BEANS);



print "########################################################################\n\n";
print "Total RAM: $ram \nTotal SWAP: $swap\n\n"; 

# summarize all values of all containers
foreach my $cid (keys %beancounters) {
	if ($cid > 0 ) {
		#print "\n$cid :\n";
		foreach my $ident (keys %{$beancounters{$cid}}) {
			foreach my $stat (keys %{$beancounters{$cid}{$ident}}) {
				# summarize all values of all containers
				$sumbeancounters{$ident}{$stat} += $beancounters{$cid}{$ident}{$stat};
				
				# summarize all socket buffers
				$sumbeancounters{"buf"}{$stat} += $beancounters{$cid}{$ident}{$stat} if ($ident =~ /.*buf/i);
			}
		}
		# checks
		print "WARNING! CID $cid: numiptent should not be greater than 200-300!\n vzvtl set --numiptent 200:200\n" if ($beancounters{$cid}{"numiptent"}{"lim"} > 200);
		print "WARNING! CID $cid: numsiginfo hould not be greater than 1024!\n vzvtl set --numsiginfo 1024:1024\n" if ($beancounters{$cid}{"numsiginfo"}{"lim"} > 1024);
		print "WARNING! CID $cid: kmemsize barrier to small or numproc to high!\n $beancounters{$cid}{'kmemsize'}{'bar'} > (40960*$beancounters{$cid}{'numproc'}{'held'}+$beancounters{$cid}{'dcachesize'}{'lim'})\n" if ($beancounters{$cid}{"kmemsize"}{"bar"} < (40960*$beancounters{$cid}{"numproc"}{"held"}+$beancounters{$cid}{"dcachesize"}{"lim"}));
		print "WARNING! CID $cid: tcpsndbuf to small or numtcpsock to high!\n($beancounters{$cid}{'tcpsndbuf'}{'lim'}-$beancounters{$cid}{'tcpsndbuf'}{'bar'}) > (2560*$beancounters{$cid}{'numtcpsock'}{'maxheld'})\n" if (($beancounters{$cid}{"tcpsndbuf"}{"lim"}-$beancounters{$cid}{"tcpsndbuf"}{"bar"}) < (2560*$beancounters{$cid}{"numtcpsock"}{"maxheld"}));
		print "WARNING! CID $cid: othersockbuf to small or numothersock to high!\n ($beancounters{$cid}{'othersockbuf'}{'lim'}-$beancounters{$cid}{'othersockbuf'}{'bar'}) > (2560*$beancounters{$cid}{'numothersock'}{'maxheld'})\n" if (($beancounters{$cid}{"othersockbuf"}{"lim"}-$beancounters{$cid}{"othersockbuf"}{"bar"}) < (2560*$beancounters{$cid}{"numothersock"}{"maxheld"}));
	
	}
	
	
}
#print "########################################################################\n\n";


$calc{"lowmem"}{"util"}=(($sumbeancounters{"kmemsize"}{"held"}+$sumbeancounters{"buf"}{"held"})/($ram*0.4))*100;
$calc{"lowmem"}{"maxutil"}=(($sumbeancounters{"kmemsize"}{"maxheld"}+$sumbeancounters{"buf"}{"maxheld"})/($ram*0.4))*100;
$calc{"lowmem"}{"bar"}=(($sumbeancounters{"kmemsize"}{"bar"}+$sumbeancounters{"buf"}{"bar"})/($ram*0.4))*100;
$calc{"lowmem"}{"comit"}=(($sumbeancounters{"kmemsize"}{"lim"}+$sumbeancounters{"buf"}{"lim"})/($ram*0.4))*100;
$calc{"lowmem"}{"limit"}=(($ram*0.4)/(1024*1024));

printf("lowmem current utilization: %.2f%\n", $calc{"lowmem"}{"util"});
printf("lowmem maximum utilization: %.2f%\n", $calc{"lowmem"}{"maxutil"});
printf("lowmem barrier: %.2f%\n", $calc{"lowmem"}{"bar"});
printf("lowmem commitment: %.2f%\n", $calc{"lowmem"}{"comit"});
printf("lowmem limit: %.2fmb\n", $calc{'lowmem'}{'limit'});



$calc{"oomguarpages"}{"min"}=(($ram/($ram+$swap))*100);
$calc{"oomguarpages"}{"max"}=((($ram+($swap*0.5))/($ram+$swap))*100);
$calc{"oomguarpages"}{"util"}=((($sumbeancounters{"oomguarpages"}{"held"}*4096)+$sumbeancounters{"buf"}{"held"})/($ram+$swap))*100;
$calc{"oomguarpages"}{"comit"}=((($sumbeancounters{"oomguarpages"}{"bar"}*4096)+$sumbeancounters{"buf"}{"lim"})/($ram+$swap))*100;

printf "\noomguarpages utilization can be between %.2f% and %.2f%\n", $calc{'oomguarpages'}{'min'}, $calc{'oomguarpages'}{'max'};
printf("oomguarpages current utilization: %.2f%\n", $calc{"oomguarpages"}{"util"});
printf("oomguarpages commitment (80-100%): %.2f%\n", $calc{"oomguarpages"}{"comit"});



$calc{"privvmpages"}{"min"}=(($ram/($ram+$swap))*100);
$calc{"privvmpages"}{"max"}=($ram*0.6)/(1024*1024);
$calc{"privvmpages"}{"util"}=((($sumbeancounters{"privvmpages"}{"held"}*4096)+$sumbeancounters{"buf"}{"held"})/($ram+$swap))*100;
$calc{"vmguarpages"}{"comit"}=((($sumbeancounters{"vmguarpages"}{"bar"}*4096)+$sumbeancounters{"buf"}{"lim"})/($ram+$swap))*100;
$calc{"privvmpages"}{"lim"}=((($sumbeancounters{"privvmpages"}{"lim"}*4096)+$sumbeancounters{"buf"}{"lim"})/($ram+$swap))*100;

printf("\nprivvmpages of a single container should not be higher than: %.2fmb\n", $calc{'privvmpages'}{'max'});
printf("allocated memory (privvmpages) current utilization: %.2f%\n", $calc{"privvmpages"}{"util"});
printf("allocation (privvmpages) limit: %.2f%\n", $calc{"privvmpages"}{"lim"});
printf("allocation memory guarantee (vmguarpages <100%): %.2f%\n", $calc{"vmguarpages"}{"comit"});

# numiptent 200-300


print "\n########################################################################\n\n";


#EOF