xpc pid path

xpc_info.pl

$dump = `launchctl dumpstate`;
%services = ();
%endpoints = ();
$service = "";
$current_service = "";
$endpoints_block = 0;
for(split("\n", $dump)){
    $service = $1 if /^([^\s]+)\s=/;
    if ($service and ($service ne $current_service)){ 
        $current_service = $service;
        $services{$service} = {};
    }
    $services{$current_service}->{pid} = $1 if /^\s+pid = (\d+)/;
    $services{$current_service}->{program} = $1 if /^\s+program = (.+)/;
    
    if ($endpoints_block){
        $endpoints{$1} = $services{$current_service} if (/^\t\t"([^"]+)" = /);
        $endpoints_block = 0 if /^	\}/;
    }elsif(/endpoints =/){
        $endpoints_block = 1;        
    }
}

$endpoint = shift();
print "xpc service: $endpoint\n";
print "pid: " .$endpoints{$endpoint}->{pid} . "\n" ;
print "path:" . $endpoints{$endpoint}->{program} . "\n";

Usage: perl xpc_info.pl com.apple.tccd.system

output:

xpc service: com.apple.tccd.system
pid: 275
path:/System/Library/PrivateFrameworks/TCC.framework/Resources/tccd