Как я могу быстро найти PID терминала пользователя в Perl?

Думаю, основная проблема в том, что этот код зациклен. Вам не нужно запускать ptree и анализировать результаты более одного раза! Вам нужно найти способ запустить ptree один раз и поместить его в структуру данных, которую вы сможете использовать позже. Наверное хватит какого-нибудь простого хеша. Возможно, вы даже сможете просто сохранить хэш% терминалов и продолжать его повторно использовать.

Некоторые придирки ...

• Оба ваших "следующих" утверждения кажутся мне не нужно ... ты должен быть возможность их просто удалить.

• Заменять

  $terminals{$user} = $terminals{$user} . " $1";
  

с участием:

    $terminals{$user} .= " $1";

• Замените открытое слово PTREE, которое вы используются в качестве дескриптора файла с $ ptreeF или что-то в этом роде ... используя голые слова стали ненужными для файловые ручки лет 10 назад :)

• Я не знаю, почему ваша переменная $ PID все заглавные буквы ... это может сбивать с толку читателям вашего кода, потому что он похоже, что есть что-то особенный об этой переменной, и нет.

Я думаю, что вы получите лучшее повышение производительности, если избежите накладных расходов, связанных с повторным выполнением внешней команды (в данном случае ptree). Я бы поискал модуль CPAN, который предоставляет прямой интерфейс к структурам данных, которые читает ptree. Может быть, проверить пространство имен Linux ::? (Я не уверен, что ptree - это Setuid; это может усложнить ситуацию.)

Помимо приведенного выше совета, некоторые дополнительные примечания к стилю и надежности, основанные только на опубликованном фрагменте (простите меня, если более крупный код делает их недействительными):

• Я бы начал, по крайней мере, с strict. Лексические дескрипторы файлов тоже будет хорошей идеей.

• Похоже, вы молча игнорируете случай, когда вы не можете open() команду ptree. Это могло произойти по многим причинам, некоторые из которых я не могу себе представить, чтобы вы проигнорировали их, например…

• Вы не используете полный путь к команде ptree, а скорее предполагаете, что он находится на вашем пути, и что тот, который находится на вашем пути, является правильным.

Сколько пользователей в системе? Вы можете это перевернуть? Перечислите все процессы -pksh-ksh в системе вместе с их EUID и создайте карту из этого - это может быть только одно выполнение ps / ptree.

Я просто сделал несколько тривиальных таймингов на основе вашего скрипта (вызвав «cat ptree.txt» вместо самого ptree) и подтвердил свои мысли о том, что все ваше время тратится на создание новых подпроцессов и запуск самого ptree. Если вы не сможете исключить необходимость вызова ptree (возможно, есть способ открыть соединение один раз и повторно использовать его, как с nslookup), вы не увидите никаких реальных преимуществ.

Рассматривали ли вы использование who -u, чтобы сообщить вам, какой процесс является оболочкой входа в систему для данного tty, вместо использования ptree? Это упростит ваш поиск, независимо от других изменений, которые вам также придется внести.

Я думал использовать ps, чтобы получить pid родителей, но мне нужно было бы зациклить это, чтобы получить pid прадеда. Это то, что мне нужно. Спасибо. - Ламкро

К сожалению, пользователей много, и у каждого может быть открыто до трех терминалов. Весь сценарий используется для поиска тех терминалов, которые используют файл. Я использую фьюзер, чтобы найти процессы, использующие файл. Затем используйте ptree, чтобы найти pid терминала. - Ламкро

Если у вас есть (или вы можете получить) список PID с помощью файла, и вам просто нужны все прародители этого PID, наверняка есть более простой способ.

#!perl

use warnings;
use strict;

#***** these PIDs are gotten with fuser or some other method *****
my($fpids) = [27538, 31812, 27541];

#***** get all processes, assuming linux PS *****
my($cmd) = "ps -ef";
open(PS, "$cmd |") || die qq([ERROR] Cannot open pipe from "$cmd" - $!\n);

my($processlist) = {};
while (<PS>) {
    chomp;

    my($user, $pid, $ppid, $rest) = split(/ +/, $_, 4);
    $processlist->{$pid} = $ppid;
}

close PS;

#***** lookup grandparent *****
foreach my $fpid (@$fpids) {
    my($parent) = $processlist->{$fpid} || 0;
    my($grandparent) = $processlist->{$parent} || 0;

    if ($grandparent) {
        #----- do something here with grandparent's pid -----
        print "PID:GRANDPID - $fpid:$grandparent\n";
    }
    else {
        #----- some error condition -----
        print "ERROR - Cannot determine GrandPID: $fpid ($parent)\n";
    }
}

Что для меня производит:

ERROR - Cannot determine GrandPID: 27538 (1)
PID:GRANDPID - 31812:2804
PID:GRANDPID - 27541:27538