Perl程序打印某用户或某进程的相关进程树

原创Perl脚本，可打印进程树等。 Usage: /usr/bin/which_proc -u -p /usr/bin/which_proc -u /usr/bin/which_proc -p 输出： Processes tree for user "testuser": --> testuser, 14392, su - testuser --> testuser, 14393, -bash --> testuser, 13946, su - testuser