sub get_cpu_used_by_other_process { my $other_mgr = shift; my $proc_id = locate__process_id( $other_mgr ); my $processor = undef; my $pid = undef; my @cmd_output = `$os_command_table{$^O}{pbind} -q 2>/dev/null`; die "ERROR:failed to retrieve the bound processors\n" unless ( $? == 0 ); ##### increase the weight of processors based on used or not ##### foreach ( keys %{$proc_id} ) { $pid = $$proc_id{$_}; next unless defined $pid; foreach ( @cmd_output ) { $processor = $1, return \$processor if /process\s+id\s+${pid}\s*:\s*(\d+) $/; } } } }