Cross Reference: /illumos-gate/usr/src/cmd/pgstat/pgstat.pl

Lines Matching refs:pgs
132 	   "pgs|P=s"		=> \@pg_list,
278 my @pgs = @all_pgs;
331 @pgs = get_pg_list($p, \@pg_list, \@sharing_filter, \@sharing_filter_neg);
347 if (scalar(@pgs) == 0) {
376 	my @levels = map { $p->level($_) } @pgs;	# Levels for each PG
385 foreach my $pg (@pgs) {
402 my $max_pg_len = length(max(@pgs)) + 1;
407 # %pgs hash contains various statistics per PG that is used for sorting.
408 my %pgs;
494 		@pgs = get_pg_list($p, \@pg_list,
500 	%pgs = ();
505 	foreach my $pg (@pgs) {
515 		$pgs{$pg}->{pg} = $pg;
516 		$pgs{$pg}->{hwload} = $hwload;
517 		$pgs{$pg}->{swload} = $swload;
518 		$pgs{$pg}->{user} = $user;
519 		$pgs{$pg}->{sys} = $sys;
520 		$pgs{$pg}->{idle} = $idle;
521 		$pgs{$pg}->{utilization} = $utilization;
522 		$pgs{$pg}->{capacity} = $capacity;
550 	my $npgs = scalar @pgs;
551 	@sorted_pgs = pg_sort_by_key(\%pgs, $sort_key, $sort_reverse, @pgs);
573 		my $hwload = $pgs{$pg}->{hwload} || 0;
574 		my $swload = $pgs{$pg}->{swload};
580 		my $user = $pgs{$pg}->{user};
581 		my $sys = $pgs{$pg}->{sys};
582 		my $idle = $pgs{$pg}->{idle};
583 		my $utilization = $pgs{$pg}->{utilization};
584 		my $capacity = $pgs{$pg}->{capacity};
677 	my $npgs = scalar @pgs;
679 	%pgs = ();
684 	foreach my $pg (@pgs) {
685 		$pgs{$pg}->{pg} = $pg;
697 		$pgs{$pg}->{pg} = $pg;
698 		$pgs{$pg}->{swload} = $swload;
699 		$pgs{$pg}->{user} = $user;
700 		$pgs{$pg}->{sys} = $sys;
701 		$pgs{$pg}->{idle} = $idle;
702 		$pgs{$pg}->{hwload} = $hwload;
703 		$pgs{$pg}->{utilization} = number_to_scaled_string($utilization);
704 		$pgs{$pg}->{capacity} = number_to_scaled_string($capacity);
705 		$pgs{$pg}->{minhwload} = $history->{$pg}->{minhwload};
706 		$pgs{$pg}->{maxhwload} = $history->{$pg}->{maxhwload};
707 		$pgs{$pg}->{minswload} = $history->{$pg}->{minswload} || 0;
708 		$pgs{$pg}->{maxswload} = $history->{$pg}->{maxswload} || 0;
714 	@sorted_pgs = pg_sort_by_key(\%pgs, $sort_key, $sort_reverse, @pgs);
768 			  number_to_scaled_string($pgs{$pg}->{utilization}),
769 			    number_to_scaled_string($pgs{$pg}->{capacity});
772 		if (!defined($pgs{$pg}->{hwload}) ||
773 		    $pgs{$pg}->{hwload} == HWLOAD_UNDEF) {
778 			  load2str($pgs{$pg}->{minhwload}),
779 			  load2str($pgs{$pg}->{hwload}),
780 			  load2str($pgs{$pg}->{maxhwload});
783 		  load2str($pgs{$pg}->{minswload}),
784 		  load2str($pgs{$pg}->{swload}),
785 		  load2str($pgs{$pg}->{maxswload});
794 # pg_sort_by_key(pgs, key, inverse)
795 # Sort pgs according to the key specified
798 #   pgs hash indexed by PG ID
804 	my $pgs = shift;
811 		my @pgs = $key eq 'depth' ?
814 		@sorted = reverse(grep { exists($pgs{$_}) } @pgs);
816 		@sorted = sort { $pgs{$a}->{$key} <=> $pgs{$b}->{$key} } @_;
916 	my @pgs = $p->intersect(\@all_pgs, \@pg_list);
922 	@pgs = grep { list_match($p->sh_name($_), \@sharing_filter, 0) } @pgs if
928 	@pgs = grep {
930 	} @pgs if
933 	return (@pgs);