Lines Matching refs:_
223 @args = map { $_ eq 'all' ? @all : $_ } @ARGV;
241 my @cpus = $p->cpus($_);
262 @pgs = grep { list_match($p->sh_name($_), @sharing_filter) } @pgs if
266 @pgs = grep { !list_match($p->sh_name($_), @sharing_filter_neg) } @pgs if
284 list_match($p->sh_name($_), @sharing_filter_neg)
310 my @cpu_list = $p->uniqsort(map { $p->cpus($_) } @pgs);
328 my @levels = map { $p->level($_) } @pgs;
357 my @pg_rel = grep { $p->sh_name($_) eq $rel }
389 map { pg_print ($p, $_) } @pgs;
396 map { pg_remove_from_tree($pg_tree, $_) } @exclude_pgs;
400 $pg_tree->{$_} && !defined($pg_tree->{$_}->{parent})
514 pg_print_tree($p, $pg_tree, $_, "| ",
527 return first { $arg =~ m/$_/i } @_;
565 map { $pg_tree->{$_}->{parent} = $parent } @children;
578 @parent_children = grep { $_ != $pg } @parent_children;
593 return unless scalar @_;
595 my @parents = grep { defined($_) } map { $p->parent ($_) } @_;
597 return ($p->uniq(@_, @parents, pg_lineage ($p, @parents)));