Solaris-Lgrp

 view release on metacpan or  search on metacpan

bin/lgrpinfo  view on Meta::CPAN

	$rsrc = $rsrc_prefix . $rsrc;
	my $rsrc_cpu = lgrp_collapse(@resources_cpu);
	my $rsrc_mem = lgrp_collapse(@resources_mem);
	my $lcpu = gettext("CPU");
	my $lmemory = gettext("memory");
	$rsrc = "$rsrc $rsrc_cpu ($lcpu);" if scalar @resources_cpu;
	$rsrc = "$rsrc $rsrc_mem ($lmemory)" if scalar @resources_mem;
	return ($rsrc);
}

# Consolidate consequtive ids as start-end
sub lgrp_collapse
{
	return "" unless @_;
	my @args = uniqsort(@_);
	my $start = shift(@args);
	my $end = $start;
	my $result = "";
	foreach my $el (@args) {
		if ($el == ($end + 1)) {
			$end = $el;

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.876 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )